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003 FACILITY: ERF, Error Log Report Generator 
99 i ABSTRACT: 
4 This module contains the routines necessary to decode the TA78 
device dependent information that is appended to various 
4 *Logmessage’ entry formats. 
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Require ‘SRC$:E 
Require ‘SRC$:R 
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tsépow) | ‘bits, 


® F ! ERF defintions 


FDEF.REQ’ ; 
CSELDEF REQ" ; i Syecom definitions 


eieeeee nes ; 
External 
71 : SBBLOCK PSECT (EMB) 
72 SYECOM: SBBLOCK PSECT (SYECOM) ; 
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! Functional Description: 
This routine decodes and outputs the unsuccessful response 


information that is appended to a logmessage ‘STI error’ | 
entry for a Taye. # ° ts 


i 

i 

i 

i 

} Calling Sequence: 
TA78_UNSUCC_RESPONSE_DECODE () ; 
; Input Parameters: 

: None. 

; Output Parameters: 

None. 

iis 


Local 


Status 3 


STORE_STRINGS ( bytel, 

*BIAGNOSTIC REQUESTED’, 

*PORT SWITCH ENABLED’, 
**"FORMATTER UNAVAILABLE’ STATE’, 
"DRIVE ATTENTION FOR DRIVE ', 
*FORMATTER ATTENTION’ ) ; 


STORE_STRINGS ( byte 

*FORMATTER DIAGNOSTIC FAILED’, 
"LEVEL 2 PROTOCOL ERROR’ 
"LEVEL 1 TRANSMISSION ERROR’, 
"FORMATTER ERROR’ ) ; 


STORE_STRINGS ( bytes 
. "ERROR 


MODE, REQUEST" 
"DRIVE AVAILABLE’ STATE (f0 FORMATTER)', 
"DRIVE ONLINE™ STATE (TO FORMATTER)", 
"WRITE LOCKED’, 


"TAPE MARK SEEN’ ) ; 


STORE STRINGS ( bytes. 
"DATA TRANSFER ERROR’ 
"EXCEPTION CONDITION DETECTED (TRANSFER)', 
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LOST’ 
OPERATION IN PROGRESS’, 
ROR' ) ; 


nd 
Unsucc_response = emb(82,0,8,0 ] : vector C.byte] ; 


1 
Output the header and byte 1 (summary mode byte 1) information. 


Arglist(0) = CSTRING ("UNSUCCESSFUL RESPONSE INFORMATION’) : 
Main_hdr = true ; 


OUTPUT_LINES ( .fao_strings(0J, arglist(0] ) ; 
LABEL_AND_HEX_OUTPUT (1) ; 


t 
: Translate bit to text. 
if ¢ TRANSLATE _BITS (unsucc_response(0),bit_msk_0, 
ytel_desc_tbl out arglist, 
k fao_string, 2REF(O)S ) 
Bit to tranlation done, output all of the information. 
OUTPUT_LINES ( .fao_string, out_arglist(0] ) ; 
i 
Decode and output Byte 2 (summary error byte) information. 


LABEL_AND_HEX_OUTPUT (2) ; 
1 
: Translate the bits to text. 


! ist, fao_string, REF (0) 
Bit to translation done, output eve. ything. 


OUTPUT_LINES ( .fao_string, out_arglist(0] ) ; 


out_arg 


i 
: Decode and output Byte 3 (summary mode byte) information. 


LABEL_AND_HEX_OUTPUT (3) ; 

SUMMARY _MODE_BYTE_DECODE (.unsucc_response[2]) ; 

: 

: Decode and output Byte 4 (controller byte) information. 
LABEL_AND_HEX_OUTPUT (4) ; 
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13-Nov-1984 1 
CNTRLR_FLG_BYTE_DECODE (.unsucc_response(3]) ; 


SSDUA42: 


Decode and output the drive mode and drive error bytes. 
Initialize the descriptor size and address. 


25; 
ncr_ I from 0 to 3 do 
Begin 


—xKe 


; Set up to decode and output the drive mode byte(s) information. 
LABEL_AND_HEX_OUTPUT (.U) ; 


] 
: Translate the bits to text. 


if ( TRANSLATE BITS cag stegponset, JJ ,bit_msk_0, 
desc_tbi,out arglist, 
—— i eotringTZREF (ODT) 
Bit to text translation done, output all information. 
OUTPUT_LINES ( .fao_string, out_arglist(0] ) ; 
1 


Set up to decode and output the drive error byte(s) information. 
LABEL AND _HEX_OUTPUT (.J¢#%) ; 


1 
; Translate the bits ty text. 
if ( TRANSLATE BITS ony _responsel.J],bit_msk_2, 
té6_desc_tbl out arglist, 
ee te “strings ZREF (OT ) 
: Bit to text translation done, output all information. 
OUTPUT_LINES ( .fao_string, out_arglist(0) ) ; 


Ja J 823 
End ; 


End ; ! Routine 


IDENT \v04-000\ 
-PSECT SPLIT,NOWRT ,NOEXE, 
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eASCII \!/!AC\<0><0><0> 
LONG 17656535 

-ADDRESS P 
ASCII 
-LONG 17694746 
ADDRESS P.AA 


“ASCII \!39< !>!AS!7B.\<0><0> 


-LONG 17694734 
Aponess PAAF 


TASCII. \!39< !>!AS\<0><0> 
17694730 


+ LONG 


-ADDRESS P,AAH 
“ASCII \!39< !>FAULT NUMBER INDICATES!/!39< !>PO\ 


ASCII Mo CAUSE GENERAL AREA =!/!39< !>!AS- 


-LONG 17694799 
sADDRESS P.A 


AJ 
ASCII \!39< !>PORT ‘AC, FORMATTER RECEPTION AND\ 


ASCII 


ASCII 


-LONG 17694821 
«ADDRESS P,AAL 


ASCII \!39< !>PORT !AC, FORMATTER TRANSMISSION! \ 


-ASCII 


ASCII 


-LONG 17694817 
+ADDRESS P,AAN 
ASCII 


-LONG 17694736 
-ADDRESS P, AAP 
ASCII 


-LONG 17694746 
-ADDRESS P.AAR 
ASCII 


ASCII i 
eLONG 17694743 
«ADDRESS P.AAT 


-11 Blis 
SSDUAS2: 


-AAB 
NIJI7< ' > OCIAC ' >I NBIB< '>\<0><0> 


\!/!39< !>TRANSMISSION ENABLED ON DATA'/!\ 


\39< !>!AS!'/!39< '>!AS\<0><0><0> 


\/!39< !>ENABLED ON REAL TIME FORMATTER!/\ 


\!39< !>STATE LINE\<0><0><0> 
V!39< !> IAS! XBOO\ 
\839< '>!2B. 1AS'/'39< !>!AS\<9><0> 


NI7!7< §>!AC! BIC '>'XBIB< §>\<0><0> 
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GRUBER SEER LE 
KBB eG 
4 ae 44 4D 43 52 


H 
00 53 41 0 § 


TAZ! 
v04 


DOIFB P.AAV: ASCII] \!39< !>LAST CMD SENT TO M8953 VIA!/!39< \ 


VUE & 


ASCII \!>"'RCMD'’ = !AS\<0><0> 


.LONG 17694776 
“ADDRESS P. AAV 

P.AAX: <ASCII \!39< !>!7B!AS\<0><0><0> 
68 P.AAW: .LONG 17694733 


[ADDRESS P,AAX 
P.AAZ: .ASCII \!39< !>!AS!UW.\<0><0> 


60 P.AAY: .LONG 17694734 
.ADDRESS P.AAZ 
P.ABB: .ASCI] \!?< !>!AC!ZB!A< '>!xXBIB< !>\<0> 


00 00 53 41 21 42 SA 21 3E 21 20 3 
00 2€ 57 55 21 53 41 21 3E 21 20 3 


x¢ 23 4 42 SA 4 43 41 $1 is 


3E 21 20 3¢ 38 21 : : 

P.ABA: .LONG 17694747 : ; 

-ADDRESS P.ABB : ; 

20 4C 45 56 45 4C 20 49 54 53 20 56 1 4 P.ABD: .ASCII \LAST STI LEVEL 2 CMD = \<0> ; : 
00 20 30 20 44 dD 0 32 oO : ; 

10E0017 OOZA4 P.ABC: .LONG 17694743 : ; 

P Jie ADDRESS P. D P+ ‘ 

0 P.ABE: .ASCII \0\<0><0><0> : : 

1 0 P.ABF: .ASCII \1\<0><0><0> 3 : 

¢ we P.ABG: .ASCII \2\<0><0><0> 3 : 

D02BC P.ABI: ASCII \4\<0><0><0> : : 

5 Q02CO P.ABJ: .ASCII \5\<0><0><0> 3 ; 

DC P.ABK: .ASCII \6\<0><0><0> 3 : 

D0 P.ABL: .ASCII \7\<0><0><0> 5 : 

55 51 45 52 20 43 49 54 53 GF GE 47 G1 49 44 OOCCC PLABA: ASCII \DIAGNOSTIC REQUESTED\ : 3 
41 4E 45 20 48 43 546 49 57 53 20 9% 33 ‘f 9 DOCEO P.ABN: ASCII \PORT SWITCH ENABLED\<0> 3 ; 
56 41 GE 55 20 52 45 54 54 41 4D 52 OF 4g 2 D02F4 P.ABO: ASCII \"FORMATTER UNAYAILABLE"’ STATE\<0><0> F ; 
00 45 54 41 54 53 20 22 45 4C 42 41 OC 4 i ; : 
80 fi ASCII <0> 3 ; 

SE GF 49 54 GF 45 54 54 41 20 45 56 49 52 G4 00814 P.ABP: ASCII \DRIVE ATTENTION FOR DRIVE \<0><0> : ; 
90 20 45 36 49 52 44 20 gf $6 20 0 : ; 

4E 45 41 20 45 54 56 41 4D 52 OF 66 00530 P.aBa: ASCII \FORMATTER ATTENTION\<0> ; 3 
4E 47 41 49 46 20 $2 45 54 $6 ct 4 92 GF 46 00344 P.ABR: .ASCII \FORMATTER DIAGNOSTIC FAILED\<0> 3 ; 
00 46 45 oC 49 41 43 4 53 4F 0 3 3 

GF 43 GF SG GF 5 ; : $3 3 $3 SC 00560 P.aBS: ASCII \LEVEL 2 PROTOCOL ERROR\<O><O> : ; 
49 4D 53 4E 41 52 go 4C 43 56 of 00378 P.ABT: ASCII \LEVEL 1 TRANSMISSION ERROR\<0><0> ; ; 
90 5¢ Sf 8g 45 fy of OF 49 5 i ; ; 

$2 4F 45 20 45 54 56 41 4D 52 4F 46 00596 P.aBU: ASCII \FORMATTER ERROR\<0> ; : 
$2 20 47 GE 49 47 47 GF 4c 20 5 OF i iz OSAS P.ABV: ASCII \ERROR LOGGING REQUEST\<0><0><0> ; 
44 4F 4D 20 45 43 4E ? of 43 24 SE 88 St SBC P.ABW: ASCII \MAINTENANCE MODE REQUEST\ ; ; 
4C 42 61 6€C 69 61 56 i ¢? te & 33 4 é i P.ABKX: .ASCII \ paive AVAILABLE’’ STATE (TO FORMATTER)~ : ; 
4F 46 20 4F S56 28 45 54 41 54 5 22 ' \<0> : : 
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00 29 52 45 54 54 41 4D : reas ; 

° <> 4 

20 22 45 GE 49 4C GE GF 45 56 49 4 . ‘ , - : 
20 22 45 4E 49 46 se Of 30 : 56 ? i : P.ABY: ASCII \"DRIVE ONLINE’ STATE (TO FORMATTER)\<0> ; 
44 45 4B 43 GF 4C as é 2 ; 0 P.ABZ: .ASCII \WRITE LOCKED\ F 

Pe GF Le SRG EAA: CARE ehcp ; 

00 4— 45 45 53 20 48 52 41 4D 20 45 50 41 34 ¥ P-ACC: ASCII] \TAPE MARK SEEN\<0><0> : 
45 20 52 45 46 53 4E 41 52 54 20 7 i 7 ; P.ACD: .ASCII \DATA TRANSFER ERROR\<0> : 
49 46 GE GF 43 20 GE GF 49 54 45 4 ; 4 P.ACE: .A PT T “4 
49 $6 GE OF 43 29 4 i $4 43 43 38 43 004 CE Scil \EXCE ION CONDITION DETECTED (TRANSFER) ; 
00 29 52 45 4 cf 41 52 54 00476 ; 

00 00 54 53 4F 4C 20 46 GF 49 54 49 53 GF ; ier P.ACF: .ASCII \POSITION LOST\<0><0><0> : 
49 54 41 52 45 50 GF 9 68 546 47 4E 45 4C P.ACG: ASCII \LENGTHY OPERAT R : 
00 53 53 28 52 23 4F 3 3 20 4E 49 35 4E oF Aor . re eee : 
99 4F 5 2 43 20 45 56 49 69 480 P.ACH ASEH XDRyE ERROR\<0> 

52 20 4C 55 46 53 a5 4 3 55 3 21 Q04BC PLACI: <A F p FOR : 
$2 20 oC 35 23 33 $3 48 $3 33 23 of 21 9o4ec I SCI] \!UNSUCCESSFUL RESPONSE INFORMATION\ ; 
4E 4F 49 54 O04DA : 


«PSECT SOWNS,NOEXE, PIC,2 


i ek :BLKB «48 
000000F F K_0: 


LONG 255 3 
000000F0 00034 BIT. _Msk_i: 
000000F8 00038 BIT_nsx_3¢ ” 
000000c0 0003¢ BIT_MSK_3: va 
00000070 00040 B1T_msK_4 ~ 
0000001F 00044 BIT msK_§: ~ 
00000078 00048 BIT_MSK_6: @ 
00000038 0004¢ BIT_MSK_?: - 
Q00000FE 00050 BIT_MSK_&: ™ 
000000E0 00054 BIT_MsK_9: ” 
0000003c 00058 Bit_nsx_id: at: 
00000007 0005¢ BIT_msk. il: - 
00000003 00060 BIT_msk_13: : 
00064 FAO_STRING: . 
LKB 84 


. 
° 
~ 
* 
eo 
° 
. 
a 
. 
. 
© 
. 
. 
os 
. 
e 
. 
* 
7 
. 
. 
. 
. 
° 
7 
. 
. 
. 
- 
e 
. 
° 
. 
. 
. 
7 
* 
7 
° 
. 
° 
o 
e 
. 
o 
. 
a 
. 
o 
. 
a 
. 
° 
7 
e 
. 
7 
7 
. 
° 
o 
7 
a 
. 
. 
. 
. 
+ 
o 
. 
o 
. 
a 
. 
o 
. 
. 
. 
2 
. 
. 
. 
. 
7 
. 
. 
. 
. 
. 
. 
7 
o 
. 
. 
. 
* 
. 
. 
. 
a 
. 
o 
. 
° 
. 
oe 
. 
. 
. 
. 
. 
. 


S> 


4 
TA78_DEVICE_DEP TA78 Device Dependent Modul i. “1985 16:00:4 AX-11 - P 
v04 : r : 1S-nev-19be Woibores — Waesdoubs Peay Woekarseareover.esenk™ «25 


00000000" 00068 FAO_STRINGS: 


SR: etal te 


.BL 
boone out_arcList:. 
00000000' 000a8 STI_STRING: —_ 
00000001 O00AC BYTE31_DESC TBL: 
“ADDRESS. P. ABE 
“ADDRESS. P.ABF 
"ADDRESS P.ABG 
“ADDRESS. P.ABH 
"ADDRESS P.ABI 
“ADDRESS P.ABJ 
"ADDRESS. P.ABK 


ok — — ~ 
ee 


—_ 


<> 
Sete Se Se Se Se Se Se He Be Be Se Se Se Se Se 


ol 1 
DOOES eADDRESS P.ABL 
DOOEC BYTET _pESe TBL: 
FO ADDRESS P.ABM : 
F4 eLONG 19 g 
F8 ADDRESS P.ABN 3 
f el 29 3 
ADDRESS P.ABO 3 
el 26 3 
oNponess 0 .AaP 3 


el 
sADDRESS P.ABQ 
BYTE2_DESC_TBL: 


wl 
“ADDRESS P.ABR 
LONG 
“ADDRESS P.ABS 
“LONG 26 
SADDRESS P.ABT 
“LONG 1 
“ADDRESS P.ABU 

BYTES _DESC TBL: 
- ADDRESS P. ABV 
ADDRESS P.ABW 
“ADDRESS P.ABX 
“LONG 35 
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«ADDRESS P.ABY 
«LONG "3 
-ADDRESS _P.ABZ 
- LONG 

-ADDRESS _P.ACA 
«LONG 

onpeaeee en ee 


«LONG 
.ADDRESS P.ACC 
Srree Jee TBL: 


“ADDRESS_P.ACD 

“ADDRESS. P.ACE 

“ADDRESS P.ACE 

“ADDRESS P.ACG 

“ADDRESS. P.ACH 

-EXTRN TRANSLATE BITS, OTSSPOWJJ 
-EXTRN OUTPUT_LIRES, EB 

SEXTRN 

-PSECT S$CODE,NOWRT, PIC,2 


at a te st at Re A a a et 


SESASLSAS FOASLSASKS 


Bete Se Se Ge Ge Se Ge Be Se 


O3FC .ENTRY TA78 UNSUCC _RESPONSE. DECODE , Save R2,R3,R4,-; 0525 

RS,RE,R7,RE_R : 

9 6 00 9 MOVAB ANSLATE BITS, R9 F 

6 00 9€ MOVAB UNSUCC_RESPONSE, R8 ; 

, oF MOVAB ORBEL AWD ek ae R6 : 

3 800 ' MOV FAO_STRING, RS ; 

H 4 ¢ SUBL2 #4, "SP F 
9¢ 5 00000000° MOVAB P.ACI, ARGLIST : 0593 
3¢ aS 1 MOVE #1, MAIN_HOR ; 0594 
9¢ AS OF PUSHAB ARGLIST : 0596 

06 ad OD PUSHL FAO_STRINGS ; 

67 FB CALLS a2, OUTPUT _LINES ; 
1 DD PUSHL @# : 0598 

ry) 1 £8 CALLS #1, LABEi._AND_HEX_OUTPUT ; 
Ge D4 CLAL = (SP) : 060 
402 F PUSHR #°M<RS,SP> : 060 

40 AS OF PUSHAB OUT _ARGLIS ; 

0088 cS OF SHAB BYTE! DESC TBL ; 

CC «(AS OOF PUSHAB Sk_ : 

DD PUSHL ; 

69 FB CALLS #6, TRANSLATE_B!TS ; 

8 E° BLBC 3 
40 AS oD PUSHL OUT_ARGLIST + 0609 

0D PUSHL FAO"STRING ; 

67 FB CALLS #2, OUTPUT_LINES ; 
DOD PUSHL @# + 0614 

56 FB CALLS #1, LABEL_AND_HEX_OUTPUT ; 
GE D CLAL 6 ; 9620 
4020 8F 8B PUSHR #*M<RS,SP> : 0619 


_" 
>. 


S 
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OUT_ARGLIST 
eriee bE C_TBL 
1T_MSK 
UNSOCC_RESPONSE+1 
. » TRANSLATE_BITS 


wo00wo 
aaa 


aLINES 


L_AND_HEX_OUTPUT 
ESPONSE+2, =(SP) 
Y_MODE_BYTE_DECODE 


BEL_AND_HEX_OUTPUT 
RESPONSE+3, =(SP) 
; TRLR_FLG_BYTE_DECODE 


00000000v 


00000000v 


onovlvIoo"Oon"eo eLocweeon 


SSSSFa Saeco cao esse 
RUSwoscowowns FOMDWC/9 OM9 S2 TVD LEO FOOCW POC rvaeowo 


J 
" py tABEL.AND_HEX. OUTPUT 
#M<RS, SP> 

OUT_ARGLIST 

BYTES = pe 

BIT_MSK 

R8, J, R 

#6, TRANSLATE_BITS 

RO, 4$ 

OUT _ARGLIST 

FAO-STRING 

#2. “OUTPUT _LINES 

#1, LABEL_AND_HEX_OUTPUT 
#°M<RS,SP> 

OUT_ARGLIST 

BYTES DESC _TBL 

BIT_MSK_ 


FOP OWCOWMOOCO F OOOFPOOOSHPNNOFP POY 


: 
; 
: 
| 


oroco> 


AVI FM = FTI UU, 


#6, TRANSLATE_BITS 
OUT _ARGLIST 
FAO-STRING 

i OUTPUT_LINES 


-d 
#3, 1, 38 


ROD VP MOON NOH 


mM| ROOM NoS 


AA 


ES 


3; Routine Size: 263 bytes, Routine Base: S$CC°E + 0000 
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Fi 
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3 90 1 pou ine SUMMARY _MODE_BYTE_DECODE (sum_mode_byte) : NOVALUE = 

$ egin 

a eit - 
; Be } Functional Description: 00 
; 38 i This rout ing decodes and outputs the summary node byte. It is called 

3 9 : from the TA78_unsucc_response_decode and the TA/8_formatter_sts_decode 00 
: ee : routines. op 
; 0700 Calling Sequence: o 
; iH SUMMARY _MODE_BYTE_DECODE (sum_mode_byte) ; 49 
3 4 : Input Parameters: 32 
: 0706 ! Sum_mode_byte = contents of the summary mode byte location. 

: 0708 Output Parameters: 20 
; 0710 2: None. 

: Orie 5 i $2 
; p Onis STORE_STRINGS ( retry_bits, ry) 
3 1 P 0714 SAME? 

: 308 P 0715 ‘OPPOSITE*, 

; P O78 "SUCCEEDED", 

8 OEe aI « 
; O719 "OPPOSITE') ; 4c 
; 7 0720 

:; 308 0721 in 

; 309 07 ; Retry_bits = .sum_mode_byte<0,2> ; 

RP BBE S, 

; 12 O79 ! Decode the retry status bits. re 
; 314 O75 Arglist(0) = 0; 

3 1? of 5 Case retry_bits from 0 to 7 OF 

3 e 

3 1" oF 0,1]: Fao_string = ZASCID '!39< !>NO ERROR’ ; 4F 
: 319 7 (2,3): 

3 $9 4 § Begin 

H 1 7 Fao_string = ZASCID °!39< !>READY FOR DATA TRANSFER iN 'AS DIRECTION’ ; 4E 
3 § 4 5 arglistCo = retry_bits_desc_tbiC.retry_bits,0,0,0,0] ; 

: 324 7 : 

3 5 i383 (4,5): 4C 
: 7 Begin 45 
$ $ 740 Fao_string = ZASCID '!39< !>RETRIED TRANSFER !AS° ; 

3 8 741 argtistCod = retry_bits_desc_tbll€.retry_bits.J,0.0,0) ; 

; 7 ati 45 
; 331 744 (6,7): 41 
; § 745 Begin ; 

$ 746 Fao_string = ZASCID '!39< !>READY TO POSITION FOR RETRY IN !AS° ; 


6 
UES IEP TE botce bnensene Retute EAScIOR ISHE:EE WSULRUMEER WabeZisroomer ant 


; 747 Arglist(0) = retry_bits_desc_tbiC.retry_bits,0,0,0,0] ; 
§ 748 End ; Va o e y. 

; f COUTRANGE): Fao string = ZASCID '!39< !>UNKNOWN RETRY STATUS’ ; 
; g . 

3 t 4 Output the information. 

3 $ f § OUTPUT_LINES ( -fao_string, arglist(0] ) ; 

; 345 7 

: § f § Decode bit 3 and output the necessary information. 

3 H 761 if .sum_mode_byte<3> 

; 39 768 : Bit 3 is set, get the text to output and output it. 

; 33 765 Begin 

: 27 708 Arglist(1] = ZASCID "ERROR LOGGING INFO AVAIL’ ; 

; 355 768 OUTPUT_LINES ( .fao_strings(3J, arglist(1] ) ; 

3 2 0769 End ; 

3 3 0770 

; 358 0771 Return ; 

; 359 0772 End ; ! Routine 


-PSECT SPLIT,NOWRT,NOEXE, PIC,2 


45° 4D DOSED P.ACJ: °ASC.1  \SAME\ : 

45 $4 49 55 OF 5 DO4E4 PACK: ASCII \OPPOSITE\ : 

00 00 00 4&6 45 44 45 45 43 & DOGEC P-ACL: ASCII \SUCCEEDED\<O><0><0> : 

00 00 44 45 4¢ 4 DO4FE PLACK: CASCII \FAILED\<0><0> : 

45 4 D0500 P-ACN: ASCII \SAME\ ; 

45 56 49 53 GF 8 00504 P-ACO: [ASCII \OPPOSITE\ : 

52 4F 52 52 45 20 4F 4E 3E 21 20 3¢ D050C P.ACQ: [ASCII \!39< !>NO ERROR\<O> 
DOS1C P.ACP: .LONG 17694735 : 

00 “ADDRESS P,ACQ ; 

GF 46 20 59 44 41 45 52 3E 21 20 3¢ 39 00504 P.ACS: :ASCII \!39< !>READY FOR DATA TRANSFER IN !AS DIN : 
52 45 46 53 4E 41 52 54 20 41 54 41 46 20553 : 
OM 0 te Gf 8 D054¢ ASCII \RECTION\<O> 

D055¢ P.ACR: “LONG 176947Or 

(i “ADDRESS P.ACS : 

20 44 45 49 52 54 45 52 3E 21 20 3c 39 D055C PACU: ASCII \!39< !>RETRIED TRANSFER !AS\<O> 
53 41 21 20 52 45 46 E ai d ; 

00578 P.ACT: .LONG 17694747 : 

ii “ADDRESS P.ACU 

sh 54 20 59 46 41 45 52 3 21 20 36 39 D058 P.ACW: CASCIT \!39< !>READY TO POSITION FOR RETRY IN !A\ ; 
5 OF 46 20 GF GF 49 bc F 0058F : 
41 se 45 20 52 38 00 z 


eASCII \ \s92<9><0> 
AC P.ACV: .LONG 1769476 


= 
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20 4E $7 of 


49 20 47 4€ 


ae nad a ts a a ts ts 
BroOnwronweroe 


1 


ns 


an 198 18:80:28 — YOSSbb URLS BRE. MbeSnesfarevoer.0320%%° 


-ADDRESS P,ACW 
“ASCII \3 


io St ad 
ADDRESS P 


9< !>UNKNOWN RETRY STATUS\<0> 


SASCII \ERROR LOGGING INFO AVAIL\ 


«LONG = 17694744 
sADDRESS P.ADA 


«PSECT SOWNS,NOEXE, PIC,2 
0019C RETRY_BITS DESC_TBL: 


“ADDRESS. P.ACJ 
“ADDRESS. P.ACK 
“ADDRESS P.ACL 
“ADDRESS P.ACM 
“ADDRESS. P.ACN 
“ADDRESS P.ACO 


o fC 30 @ £ 


Bete Se Ge Ge Ge Ge Ge Ge Ge Se Se 


-PSECT SCODE,NOWRT, PIC,2 


5 “R3.R4 
fn Syeur LINES, R4 
MOVAB PsA ACK 
MOVAB STRING, R2 
EXTZ¥ “3 SUM_MODE_BYTE, RO 
CLAL HO List 
CASEL m0. , a7 
WORD -1$,- 

$-18.- 
$-1$.- 
$-1$.- 
4$-1$;- 
4$-1$.- 
8-18.~ 
$-1$ 
MOVAB BACK. FAO_STRING 


MOVAB pc? FAO_STRING 
MOVAB eth. FAO_STRING 
MOVAB eghtt. FAO_STRING 
MOVAB P.ACV, FAO_STRING 


(RO), 
MOVAQ RETRY_BITS_DESC_TBLCROJ, ARGLIST 


TA78_DEVICE_DEP TA78 Device D t Modul Sue =1985 1 AX-11 Bliss-32 V4.0 15 TAT 
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9¢ A2 OF A 7%: PUSHAB ARGLIST : 0756 
DD . PUSHL FAO_STRING : 
FB i CALLS a. “OUTPUT_LINES : 
OE 04 ag § Bac SUM pot BYTE, 8$ 3 0761 
AO OA 20 Ad SE MOVAB + ACZ, ARGLIST+4 : 0766 
AO A2 OF C PUSHAB ate : 07 
64 © 05 PB Soot CALs woe SThNGSe12 : 
0 g 8$: RET : 0772 


; Routine Size: 118 bytes, Routine Base: $CODE + 0107 


; 360 0773 1 
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774 Routine CNTRLR_FLG_BYTE_DECODE (cntrir_f 3 
ae Beste _FLG_ J trir_flg_byte NOVALUE = 
378 '44 
re : 
a Functional Description: 
781 i This routine decodes and outputs the controller flag byte. It is 
7 : called from the TA7S_unsucc. response decode and thee . 
f TA78_formatter_sts_decode routines. 
g 5 ! Calling Sequence: 
i : CNTRLR_FLG_BYTE_DECODE (cntrir_flg_byte) ; 
7 ; Input Parameters: 
a : Cntrir_flg_byte = contents of the controller flag byte location. 
138 Output Parameters: 
None. 
i] 


Bind 
Ci = .cntrir_flg_byte<0>, 
C2_thru_Cc8 o7lcntrir flo, byte<t,7> : 


ArglistC0] = ZASCID "UNKNOWN CNTRLR FLAG BITS STATUS’ ; 
i] 
: Determine if the text associated with the controller bits. 


if (C2.thru_c8) EQL 0 
Then 


SESS 835333333333 


power 
Wtu—o 


Be jin 
If NOT (C1) 
Then 


Begin 
ArglistC0] = ZASCID ‘NORMAL OPERATION’ ; 


ee RB Pt et eet et ot 


SSLEAR 


en 
ned ArglistC0] = ZASCID "DIAGNOSTIC MODE’ ; 
End; 


‘ 
: Output the information. 


OUTPUT_LINES ( .fao_strings(3], arglist(0) ) ; 
Enc ; ! Routine 


S268 09 08 G> 69 OB Oe OF GS Oe Oe Go Oe Oe Go Oe Ge Oe Oe 


=PIPINPIPIPIPINVIWS SNPS & SWS 


SOWONONES WIN "OOOO 


& 
& 
4 
4& 
4 
4 
4 
% 
& 
4 
4 
4 
4 
& 
& 


APOPIPIMOPONPININUNIND 


ee ee et at oh 
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«PSECT SPLIT,NOWRT,NOEXE, PIC,2 


20 e¢ ¢ 2 23 sf $3 ¢ rh} 2 $f a5 rt of P.ADC: .ASCII \UNKNOWN CNTRLR FLAG BITS STATUS\<0> 
P.ADB: .LONG 17694751 


1 
4F 49 54 41 52 45 50 4F 20 4C 41 GD 52 4F 4E +}: P.ADE: .ASCII \NORMAL OPERATION\ 


1 P.ADD: .LONG veorsree 
-ADDRESS P.ADE 
P.ADG: ASCII \DIAGNOSTIC MODE\<0> 


4 
010 648 P.ADF: .LONG 17694735 
060000" 0064¢ [ADDRESS P.ADG 


45 44 4F 4D 20 43 49 54 53 GF GE 47 41 


Be Ge Ge Se Se Ge Se Ge Se Ge Se Se Se 


«PSECT SCODE,NOWRT, PIC,2 


Q00C 00000 CNTRLR_FLG_BYTE_DECODE: 
~ ,WORD “Save R2,R3 


53 00000000° 00 MOV . : 

00000000" 09 MOVAB ARGLIST, R2 ; 

A MOVAE P.ADB, ARGLIST F 

FE oF 06 AC 8178 GNTRLR_ FLG_BYTE, #254 : 

OE BNEO $ ; 

06 06 =A BLBS CNTRLR_FLG BYTE, 1$ ; 

6 18 «OA MOVAB P.ADD, ARGLIS ; 

04 BRB 3 

62 30 A MOVAB P.ADF, ARGLIST F 

5 PUSHL 3 

7% =A PUSHL FAO_STRINGS*+12 ; 

000000006 00 0 CALLS #2, OUTPUT_LINES : 
RET 3; 08350 


; Routine Size: 53 bytes, Routine Base: S$CODE + 017D 
: 419 0831 1 
: 0832 1 


% 
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: g 1 GLOBAL Routine TA78_FORMATTER_STS_DECODE : NOVALUE = 
by fn 

: B88 3 te 

3 2 $ } Functional Description: 

; 428 3 ! This routine decodes and outputs the extended formatter status response 
; 429 0 : information that is appended to a logmessage ‘STI formatter error' 
3 : : 8 1 log entry for a TA78. 

3 2 ¢ 0 § } Calling Sequence: 

; 4 4 ; <i TA78_FORMATTER_STS_DECODE () ; 

3; 6 Bee ! Input Parameters: 

3; 437 0848 ! 

s § 0849 ' None. 

; 439 0850 ‘ 

3: 440 0851 ! Output Parameters: 

3 441 o826 ' 

: 46 085 ! None. 

: 46 0854 ' 

> 466 0855 tee 

: 665 3 

: te3 Pp Bea STORE _STRINGS ( byte4 

3 J € 

648 P 0859 "FORMATTER ONLINE TO CONTROLLER’ 

+ 469 P "FORMATTER AVAILABLE TO CONTROLLER’, 
; 450 Pp 1 *FORMATTER IN TOPOLOGY "ss 

; 651 P ¢ *FORMATTER OFFLINE TO CONTROLLER’, 

3 $2 "INTERNAL HARDWARE PROBLEM’ ) ; 

: 654 P 0865 2 STORE_STRINGS ( byteS 

: 455 P nm  FORMATTER DIAGNOSTIC REQUEST’, 

: $36 P “ T A/ ED’, 

3; 45 P 0868 *FORMATTER IN TOPOLOGY MODE’, 

: 458 P 086 "TRANSPORT 0 ATTENTION‘, 

; 4659 P 0870 * TRANS TENTICN’, 

; 460 P O08 "TRANSPORT 2 ATTENTION’, 

: 461 P Of ‘TRANSPORT 3_ ATTENTION’, 

5 re : *FORMATTER ATTENTION’ ) ; 

3 664 P STORE_STRINGS ( bytes. 

3 465 p "DIAGNOSTIC FAILED’ 

i 466 F "LEVEL 2 PROTOCOL ERROR’, 

; 4 B "TRANSMISSION ERROR 

: 468 *FORMATTER ERROR (OPERATIONAL CODE)" ) ; 
3; 470 P STORE_STRINGS ( byte10 

: 671 Pp "DATA READY’, 

; 47 e "ACKNOWLEDGE", 

: 47 P "ATTENTION 

: 47 "FORMATTER RECEIVER READY’ ) ; 

; 47 P STORE STRINGS ( bytel1 ; 

> 67 P "PORT SELECT B', 

; 4678 Pp "PORT SELECT A’, 


Be Se Se Se Se Se Se Ge Se Se Se Se Se Fe Ge Se Se Se Ge Fe Se Se Se Fe Se Se Se Se Se Se Se ee Fe Se Se Se Se Se Se Se Se SF Se SH Ss Ss Oe Se Se Se Se ee Se Se Seeees 
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So 
w 


ee ee ed ed ed ed ed oOo 
LEESESSRVSVRON US Sane anrun -oSe we 


PUP DPVPVPUDUDULVPUPUDUPVSIVDULUSUPV SUSU SUST SIS SUSSIA SIS SIS 


vvv 


aon $ 


en ee ee a eos 


SSSSSSSSSSSSSSSSSS 
NOUS WIN —OOONOU Swit 


— 


w 


SEZEZZSSSSISSSSISS 


Own uno 


“Nov-19 255$DUA42: 
"FAULT PRESSED’ ) ; 


STORE_STRINGS ( byte13, 


"MOVED TAPE IN OPPOSITE DIRECTION’, 
MOVED TAPE JN REVERSE DIRECTION’, 


Bind 
Fratr_sts = emb(82 8 8, 3. : Pe shes C.bytel, 
Errnum = fratr _stst 5: : 


i Qutput the header and decode and output bytes 1 and 2, the error number. 
irgtistC03 rb CSTRING (*TA78 EXTENDED FORMATTER STATUS") ; 

OUTPOT. LINES c -fao_strings(0J, arglist(O] > ; 

LABEL_AND_WEX_OUTPUT (1,2) ; 

ERRGR_NUMBER_BYTE_DECODE (.errnum) ; 


! 

: : Decode and output byte 3, last received level 2 opcode. 
L_AND WER OUTPUT (3) : 

at tb Tsti —— 

Arglist(! -fratr_sts 2 


OUTPUT_LINES ( .fao_strings(7], arglist(0] > ; 


a 
Decode and output byte 4, connection state byte. 
LABEL_AND_HEX_OUTPUT (4) ; 


If ( TRANSLATE _BITS (frmtr_sts(3),bit_msk_S.byte4 desc_tbl, 
out_arglist, fao_string, BREF (O)T ) 


OUTPUT _LINES ( .fao_string, out_arglist(0) ) ; 


' 
Decode and output byte 5, summary mode byte 1. 
LABEL_AND_MEX_OUTPUT (5) ; 


If ( TRANSLATE_BITS (fratr ee steléy. -bit_ask_0 bytes gesc tt tbl, 
t_arglist, fao_string, REF ( 


** OUTPUT _LINES ( .fao_string, out_arglist(0) ) ; 


Decode and output byte 6, summary error byte. 
LABEL_AND_MEX_OUTPUT (6) ; 


SRCITA7B8DVDEP. 832;1 


TA78 ICE _DE 7 i -Jan- ~ ns ( 
ValtyggVICE.DEP TTS vevie Dependent Rosle TEASCHOEE WENGE AGU ALHEHY Walidsfarnver onc oP 


Bab fc ammsuare.arvs tomo e ta eke atest 
re "OUTPUT _LINES ( .fao string, out_arglist(0) ) ; 
rk : 4 : 
rf: 955 Decode and output byte 7, summary mode byte 2. 
46 . LABEL_AND_HEX_OUTPUT (7) ; 

Seg 35 SUMMARY MODE _BYTE_DECODE (.frmtr_sts(6]) ; 
eG, 

4 § Decode and output byte 8, controller flag byte. 
384 LABEL_AND_HEX_OUTPUT (8) ; 

228 CNTRLR_FLG_BYTE_DECODE (.frmtr_sts{7]) ; 

359 Decode and output byte 9, port control byte. 


LABEL_AND_HEX_OUTPUT (9) ; 


If ot trate Pati site Pa 
frmtr_sts(8))<1> 


rab 4) 44) 


Cao 
Wr 


S FORMATTER RECEPTION ENABLED. ; 
ArglistC5 *ON REAL — CONTROLLER STATE LINE’ ; 
4 string = trings(5 


argtistCe } ~ tase a "LINE 
ao_s 


If oteate Pete HEE OR 
fratr_sts(8))<3> 


Fao_string = .fao_strings(6) ; 


If “(irate _sts(8))<0> OR 
. (frat? mites 


Arglist(3) = CSTRING (°B") ; 


If .(fratr petits eae 
. (frat?_sts(8))<3> 


Arglist(3) = CSTRING (°A") ; 


OUTPUT_LINES ( .fao_string, arglist(3] ) ; 
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' 
LABEL_AND_MEX_OUTPUT (10) ; 

f .(frmtr_sts(9])<0> 
en 

_Aratist(oy = ZASCID "FORCE PARITY ERROR’ 


Ssessss 


PRORORoRoRoRURoRNPURINUW ER UE BEER EEE PURI B nononononononorornononon,) 
wm nlc mn 
ae 


0 
ob $i) Arglist(0] = ZASCID "NORMAL OPERATION ; 
one $18 If NOT .(frmtr_sts(9))<1> 
60 014 hen 
O88 B12 Arglist(1] = ZASCID "FORMATTER ONLINE’ 
e 
O78 aH Arglist(1] = ZASCID "FORMATTER AVAILABLE OR OFFLINE’ ; 
608 19 
609 8 0 If .(frmtr_sts(3J)<0> ! Formatter online 
610 1 Then 
11 0 ¢ Begin 
\¢ 0 If ( TRANSLATE_B1°S (frmtr_sts(9],bit_msk_6,byte10_desc_tbl, 
1 024 out_arglist, fao_string, SREF(C))~) 
14 025 Then 
15 0 $ OUTPUT_LINES ( - feo_strings( 3). arglist(0), 
1 0 -fao_strings(3), arglist(1), 
1 028 -fao string, out_arglist(0] ) ; 
18 029 End 
19 030 Els 
0 031 Begin 
1 0 ; If .(frmtr_sts(3J)<1> ! Formatter available 
; HY ona” ; 
egin 
4 035 Fas string = ZASCID Yee Set ONNECTION STATE CHANGE!/!39< !>CNT = !'7B° ; 
‘ 8 $ Arglist(3J = .(frmtr_sts(9])<2,5> ; 
0 OUTPUT_LINES ( .fao_strings(3], arglist(0), 
8 $3 ~ eeestringetsa: 3 £93: 


ar bist 
-fao_string, arglist(3 
If .(frmtr_sts(9])<6> 

Then 


—_ 


Begin 
Arglist(3)_ = byte10dese tbit¢.0,0.0,0) 
6 OUTPUT _LINES ( .faorstrings(3), arglist($) ) ; 
ng ; 
6 End ; 
6 End ; 
6 


{fF -ttratr_steltl0<?> 

Fao_string = ZASCID °'!39< !>ALLOWS TRANSMISSION OF STATE!/!39< !>BITS ON ENABLED PORT(S) REALTIME!/!39< 
Fao_string = ZASCID °!39< !>FORCE TRANSMISSION OF ZEROS ON!/!39< !>ENABLED PORT(S) REALTIME!/'39< !>FORM 
OUTPUT_LINES ( .fao_string, ZREF(O) ) ; 
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SPAAAAAASAAAAASAAAAAAAAO o 


ooo 
PSS ITSII TS eee 
a a a a a a a a DB et ee ed ed ed ed 


SoQoooeooo 
SSELIS PES Se sone eee 


TA78_DEV EP TA78 Devi -Jan- =11 0-7 
YARN IEP TATE Device Devenent eta ESTEE AASE:AS BSI abe reer ant 


; : Decode and output byte 11, port switch byte. 
LABEL_AND_HEX_OUTPUT (11) ; 


5 If ( TRANSLATE BITS (frmtr_sts(10),bit_msk_4,bytel!_desc_tbl, 
aiei out_arglist,fao_string,SREFTO)) 


OUTPUT_LINES ( .fao_string, out_arglist(0) ) ; 


VFO 
—_ = 2 


PAPAS AAA OS 


EES EST SSNS Lo 25 2 ben poe 


mw 
Ooo 


! 
} Decode and output byte 12, last status code. 
LABEL_AND_HEX_OUTPUT (12) ; 


SgLislt] = Sasan uae srg coe = * 


OUTPUT_LINES ( .fao_strings(7], arglist(0] ) ; 


SESEFESES 


SSSSSSSSS9S 


9 80 
$90 +t ¢ 
671 8 g : Decode and output byte 13, error retry flag byte. 
ers O84 LABEL_AND_MEX_OUTPUT (13) ; 
675 0. arotistto] s = ZASCID ‘UNIT = 
676 9 ArglistC .(femtr thd <i .2>; 
08 OUTPUT_LINES ( .fao_strings(2], arglist(0] ) ; 


3 


it. - (frmtr_sts(12))<3,5> NEQ 0 


ee gin thie ;. gAscip "INITIAL 
oufPUT . fao sorinettl. area teelal »; 


ass 


SSS3333 


da a a a a a a cc a a ee ee me ee ee ee ee ed ed ed ed eed ed 


5 
If ¢ TRANSLATE BITS (frmtr stsliel. ebit_msk_7,bytel3_desc_tbl, 
oss ese out_arglist,fao_string,treft0)) 
9 100 “OUTPUT _LINES ( .fao_string, out_arglist(0] ) ; 
101 End ; 
691 1 ¢ 
4 1 : 
9 : : ; Decode and output byte 14, retry counter. 
695 LABEL_AND_HEX_OUTPUT (14) ; 
$99 1 Arglist ° irate stall 
698 1 Argtisttiy = EASCID"® RETRY Requests DURING ERROR" ; 
419 Arglist(2] = ZASCID "RECOVERY SEQUENCE 
A ; i OUTPUT_LINES ( .fao_strings(8], arglist(0) ) ; 
7 114 ‘ 
i 12 : Decode and output byte 15, STI bus init counter. 
7 19 LABEL_AND_MEX_OUTPUT (15) ; 
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ot st ts st 8s tt 
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ce ee ce cc me ms ee ee ee a ee ee ee ed ed ed ed od od od ed od od 
cc ce me me em me me em ee me ee ee ed ed ed 2d ed wd = dd 


ROSS SS SFR S SSNS UF Ooo OAS ete eo Ole ee Oe ae 


“Novel 


Arglist 
OUTPUT_LINE 


PWR UP" 


nrStisthy = 
Arglist = 
= 

$ -fao_strings(8], arglist(0] ) ; 


fratr_sts(14) ; 
tascio7 aH SINCE TA78 MASTER RESET’ ; 
ZASCID ' ; 

( 


' 
: Decode and output byte 16, parameter address. 
LABEL_AND_HEX_OUTPUT (16) ; 


If .errnum EQiL 2x'3C5F° ! Underflow error 
Then 


Begin 
Arglist(0) = ZASCID "CONTENTS OF ADDRESS IN (SP)" ; 
QUTPUT LINES ( .fao_strings(3], arglist(0O] ) ; 


1 
Decode and output byte 17, parameter address. 


LABEL_AND_HEX_OUTPUT (17) ; 


If .errnum EQL 2Xx"3C5F° ! Underflow error 
Then 


Begin 

Arglist(0] = ZASCID ‘CONTENTS OF ADDRESS IN (SP+1)° ; 
CUTPUT LINES ( .fao_strings(3], arglist(0] ») ; 

nd ; 


' 
H Decode and output byte 18, parameter address. 


LABEL_AND_HEX_OUTPUT (18) ; 


If .errnum EQL 2xX°3C5F° ! Underflow error 
Then 


Begin 
ArglistCo) = ZASCID ‘CONTENTS OF ADDRESS IN (SP+#2)° ; 
OUTPUT _LINES ( .fao_strings(3], arglist(O) ») ; 


] 
Decode and output byte 19, parameter address. 


LABEL_AND_HEX_OUTPUT (19) ; 
If .errnum EQL 2x°3C5F° 
Then 

Begin 


! Underflow error 
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; 764 11%8 Arglist(0] = %ASCID "CONTENTS OF ADDRESS IN (SP+3)° ; 
: 7 117 OUTPUT_LINES ( .fao_strings(3), ist(0] ); 
! 3] 1178 puipur. ao_stringsl arglist(0) 
; 768 117 
; 769 1180 
OMB 
re 1 ¢ Byte 20, spare. 
: 77 1184 2 LABEL_AND_HEX_OUTPUr (20) ; 
: 774 1185 
s 775 1186 End ; ! Routine 
-PSECT S$PLIT,NOWRT,NOEXE, PIC,2 
4E 49 4C GE GF 2 45 54 54 41 4D 52 4F 46 00650 P.ADH: .ASCII \FORMATTER ONLINE TO CONTROLLER\<0><0> : 
52 45 4C 4C 4F 89 2¢ 4E 4F 43 20 4F 33 20 ‘3 O06 : 
4C 49 41 56 41 20 52 45 54 54 41 4D 52 4F 46 006 5 P.ADI: .ASCII \FORMATTER AVAILABLE TO CONTROLLER\<0><0>~ : 
4C 4F 52 54 4E GF 43 20 GF 54 20 45 4¢ 4g 41 67F : 
0 00 S52 45 4C oes 3 
00 0069 eASCII <0> 3 
4F 54 20 4E 49 20 52 45 54 54 41 4D 52 4F 46 94 P.ADJ: . ASCII \FORMATTER IN TOPOLOGY MODE\<0><0> : 
00 00 45 44 4F 4D 20 59 47 GF 4C 4F OS : 
49 4C 46 46 4F 20 52 45 54 54 41 4D $6 4F 46 BO P.ADK: .ASCII \FORMATTER OFFLINE TO CONTROLLER\<0> : 
45 4C 46C GF S52 54 4E 4F 43 20 GF 54 2 43 : ti 3 
41 57 46 52 41 48 20 4C 41 4E 52 45 54 af 4 000 P.ADL: .ASCII \INTERNAL HARDWARE PROBLEM\<0><0><0> : 
00 00 00 4D 4 f 42 4F 50 4 28 F 3 
4E 47 41 49 44 20 52 4 24 54 41 4D 4F 4 EC P.ADM: .ASCII \FORMATTER DIAGNOSTIC REQUEST\ ; 
54 53 45 51 45 52 20 43 49 53 4F F 3 
45 4C 42 41 4E 45 20 42 2F 41 20 54 52 GF 20 zg P.ADN: .ASCII \PORT A/B ENABLED\ : 
4F 54 20 4E 49 20 52 45 54 54 41 4D 52 4F 46 rg P.ADO: .ASCII \FORMATTER IN TOPOLOGY MODE\<0><0> : 
00 00 45 44 4F 4D 20 59 47 4F at 4F 3 Dore? : 
54 54 41 20 30 20 54 i ar 90 33 4 41 32 34 tite P.ADP: .ASCII \TRANSPORT 0 ATTENTION\<0><0><0> : 
NO Py 
54 54 41 20 31 20 9? F $0 33 4 41 53 24 pO74C P.ADQ: .ASCII \TRANSPORT 1 ATTENTION\<0><0><0> : 
ie 4 
54 54 41 20 32 20 54 af 50 23 ‘ 4 52 2 90764 P.ADR: .ASCII \TRANSPORT 2 ATTENTION\<0><0><0> : 
ie é 
54 54 41 20 33 20 54 4F $0 33 4 s 53 34 d077¢ P.ADS: .ASCII \TRANSPORT 3 ATTENTION\<0><0><0> : 
6E 45 54 54 41 20 4 4 5/ 41 4D 22 F $6 0079 P.ADT: .ASCII \FORMATTER ATTENTION\<0> ; 
U Py 
4C 49 41 46 20 43 49 54 53 4F ob 47 41 49 4s ie P.ADU: .ASCII \DIAGNOSTIC FAILED\<0><0><0> : 
Nt Py 
4F 463 4F 56 4F 52 i i i 20 ; a3 5 2 4c poreC P.ADV: .ASCII \LEVEL 2 PROTOCOL ERROR\<0><0> 2 
52 45 20 4E 4F 49 49 4D ab 41 rf 34 2070 P.ADW: .ASCII \TRANSMISSION ERROR\<0><0> : 
“ue 4 
52 4F 52 52 45 20 52 45 54 54 35 F is DO7EB P.ADX: .ASCII \FORMATTER ERROR (OPERATIONAL CODE) \<0> ; 
43 20 4C 41 4E 4F 49 54 41 52 43 58 af 28 20 D07F : 
00 titte ASCII <0> : 
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4— 49 45 50 41 54 20 44 

49 34 rs 45 8 8 44 20 45 54 49 
52 20 4E 49 20 45 50 41 54 4a 
4F 49 $4 43 45 52 49 44 20 é 53 
00 45 54 49 2 57 8 at 

0 44 45 44 of 45 33 45 38 
5 54 41 54 53 20 52 45 54 54 41 
Se 45 54 54 41 4D 52 4F 46 ¢° 53 
4c 41 4E 45 20 4E 4F 49 54 50 45 
4E 4F 43 9 45 40 49 54 4€ 41 45 
4C 20 45 54 41 54 53 20 52 45 65 


52 45 20 59 54 49 52 41 50 20 43 
4F 49 54 41 52 45 SO 4F 20 4C 41 


4E 49 4C GE 4F 20 52 45 54 56 41 


4c 49 41 56 41 20 52 45 54 54 4) 
45 4E 4C 46 46 4F 20 52 GF 20 
45 4E GE 4F 43 20 54 52 4F 53 
ai a6 28 30 08 Se at 53 6 te é 
0 3 39 35 gt et 
00 42 SA 21 20 3d 20 54 4E 
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by vp ott 
DGE\<0> 


ASC 1 \ 
ASC ATTENTIO ON\<0><0><0> 
ASCII \PORMAT ER RECEIVER READY\ 


sASCII \PORT SELECT B\<0><0><0> 
eASCII \PORT SELECT A\<0><0><0> 
eASCII \FAULT PRESSED\<0><0><0> 
eASCII \MOVED TAPE IN OPPOSITE DIRECTION\ 


eASCII \MOVED TAPE IN REVERSE DIRECTION\<0> 


II \WAS A WRITE\<0> 
I] <30>\TA78 EXTENDED FORMATTER STATUS\ 


1 
eASCIIT ‘LINES FORMATTER RECEPTION ENABLED\<0><0> 


94753 
“ADDRESS P ty! 
ASCII \ON REALTIME CONTROLLER STATE LINE\<0><0> 


eASCII < 
- LONG 19594753 


<1>\A\ 
ASCII \FORCE PARITY ERROR\<0><0> 


-LONG 17694738 
«ADDRESS P.AEQ 
eASCII = \NORMAL OPERATION\ 


LONG 17694736 
eADDRESS P.AES 
eASCII = \FORMATTER ONLINE\ 


eLONG 17694736 
-ADDRESS P.AEU 
-ASCII \FORMATTER AVAILABLE OR OF FLINE\<0><0> 


-LONG A Sat a 
»ADDRESS P.AEW 
-ASCIT \TRANSPORT CONNECTION STATE CHANGE!/!39< \ 


eASCIT = \!DCNT = !Z7B\<0> 


) 
>. 
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8 P.AEX: .LONG 17694771 
§ eADDRESS P,AEY 
; P.AFA: <ASCII \!39< !>ALLOWS TRANSMISSION OF STATE!/!39\ 


S= 


eASCII \< !>BITS ON ENABLED PORT(S) REALTIME! /!3\ 


ASCII \9< !>FORMATTER STATE LINE\<0><0><0> 


-LONG 17694825 
eADDRESS P,AFA 


Ws~ 
vo 
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ad 
m 
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so 


aureus 
ssessesaaes 


MOF WO =O —MO 


PPM VAL SOM & Fw 


C 

: 
. | 3 $? $3 if df ; i g 28 i : i A P.AFC: .ASCII \!39< !>FORCE TRANSMISSION OF ZEROS ON!/!\ 
22 4 re} $3 rt: ‘j a ; 28 : : df ngs eASCII \39< !>ENABLED PORT(S) REALTIME!/!39< !>F\ 
20 45 54 41 54 $8 35 is t 36 a § cf re eASCII \ORMATTER STATE LINE\<0> 


-LONG 17694819 
eADDRESS P.AFC 


ss 


33, 
- 
>> 
on 
7 
o . 
> > 
in} wn" 
m @ 


P.AFJ: .LONG 17694748 
eADDRESS P.AFK 
BSC P.AFR: .ASCII \RECOVERY SEQUENCE\<0><0><0> 


P.AFL: .LONG 17694737 
eADDRESS P.AFM 
$ P.AFO: .ASCII \ INITS SINCE TA78 MASTER RESET\<0><0> 


44 4F 463 20 53 55 54 41 5&4 53 20 54 53 14 “ASCII \LAST STATUS CODE = \<0> 
01 1 AEG P.AFD: .LONG 17694739 
* OOAES “ADDRESS P.AFE 
00 20 3D 20 54 49 4E DOAEC P.AFG: -ASCII WNIT = \<0> 
01 4 PLA LONG 7 
0 * OOAF8 “ADDRESS P.AFG 
44 GE 41 4D 4D 4F 43 20 6C 41 49 56 49 gE 4 AFC P.AFI: <ASCII \INITIAL COMMAND -\<0><0><0> 
016 D0B10 P.AFH: .LONG 17694737 
S354 53 45 $5 51 45 52 20 59 52 56 45°52 90 OOSIS PLAFK: TADS RT RETRY REQUESTS DURING ERROR\ 
52 4F 52 2} 45 38 29 4E 8 35 $3 ; y / . 
4 
4 


g P.AFN: .LONG 17694750 


10000906" “ADDRESS P.AFO 
00 00 00 50 55 20 S52 57 50 20 D P.AFQ: ASCII \oR PWR UP\<0><0><0> 
000° _ “ADDRESS roe 
44 46 41 46 4F 53 54 4E 45 56 4E 4F P.AFS: ASCII \CONTENTS OF ADDRESS IN (SP)\<0> 
00 39 $6 53 38 20 4 45 20 53 53 45 


L 
BBS eADDRESS P.AFS 
ta P.AFU: ASCII \CONTENTS OF ADDRESS IN (SP+1)\<0><0> 
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4b 
00 


6h 
29 


he 
29 


30 $5 88 3 


38 30 


54 


35 33 


2 33 


abe 


135-Nov-1 
01060010, 90BD8 P.AFT: 
4 ri 3: P.AFW: 
i 
1 COO P.AFV: 
ait 4 ; P.AFY: 
53 45 3 
HH 
unSH. Hee har 
OOOOOOIE OO1CC BYTES 
dO 
04 
oe 
4 
€8 
EC 
FO 
F4 
F8 
fF 
i 
1 
18 
1 
4 
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00000000" 00258 


Se 19:06:28 weyers SussRCITA7BDVDEP.832- ” 3 


«LONG 
» ADDRESS 
-ASCI 


Verena 


\CONTENTS OF ADDRESS IN (SP+#2)\<0><0> 


ASCII \CONTENTS OF ADDRESS IN (SP+3)\<0><0> 


ASCII 
«LONG 17694749 
-ADDRESS P.AFY 


«PSECT SOWNS,NOEXE, 


DESC _TBL: 


»LONG 
-ADDRESS _P.ADH 
«LONG 
eADDRESS P.ADI 
- LONG 
eADDRESS _P.ADJ 
- LONG 
eADDRESS P.ADK 
,ADDREES P.ADL 


BYTES_DESC_T 


wk 
ADDRESS P.ADM 
“ADDRESS P.ADN 
“ADDRESS P.ADO 
“LONG 21 
ADDRESS P.ADP 
“ADDRESS P.ADO 
*L 21 
“ADDRESS P.ADR 
“LONG 21 
SADDRESS P.ADS 
“LONG 19 
“ADDRESS P.ADT 


BYTEG_DESC_TBL: 


ol 1 
eADDRESS P.ADU 
~LONG 

eADDRESS P.ADV 
LONG 1 

- ADDRESS ee ADW 
-LONG 

ADDRESS P. ADX 


i$ 
BYTE10_DESC TBL: 


ol 
-ADDRESS P.ADY 


PIC.2 
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«LONG 11 
“ADDRESS P.ADz 


oL 

—" e. AEA 

sADDRESS P.AEB 
BYTE11_DESC_TBL: 


-LONG 13 
ADDRESS 13° AEC 


78 

7 -LON 
“ADDRESS — 
«LONG 1 
ADDRESS P.AEE 

C BYTE13_DESC TBL: 


ok 
ADDRESS P. AEF 
ADDRESS P.AEG 
“ADDRESS P.AEH 


«PSECT SCODE.NOWRT, 


sScdlec]9tS 1629068 yay 


AX-11 Bliss-32 v4. 
S$DuAG2: EER? .BUG 


PIC.2 


HEX x.Oyt PUT, R6 


CALLS ae LABEL AND _HEX_OUTPUT 
CALLS i ERROR_NUMBER_BYTE_DECODE 


HEX TPUT 
ARGL IST 
ARGLIST+4 


#1, LABEL_AND_HEX_OUTPUT 
(SP) 


OOFC 
57 90900006 00 9 MOVAB 
: 900 v 9E MOVAB E 
0 0 G 9E MOVAB OUT TPUT L IRES 
24 50 6 3 HOVAB Fah of'58 R3 
i SHE 3 a es 
5 4 ¢ SUBL2 #4 ist. 
6 64 3 MOVAB P.AEI, ARGLIST 
00AO  C o1 MOVB bin MAIN_HDR 
DD PUSHL 
68 A2 DD PUSHL FAO. ST nines 
65 FB CALLS » OUTPUT _LINES 
DD PUSHL ‘ 
1 DD PUSHL 
66 ; FB 
7e FB OAS 3C MOVZWL ERRNUM 
00000000v 00 } FB 
a BS fi ue a 
é3 ooas C¢ 06 MOVL eri STRING 
04 =A FA AS 9A MOVZBL FRMTR_STS+2, 
52 DD PUSHL R 
0084 DD PUSHL  FAO_STRINGS+28 
44 FB CALLS ae. “OUTPUT _LINES 
DD PUSHL @# 
66 1 F CALLS 
E D CLRL 
D PUSHL SP 
64 Ad OF PUSHAB FAO_STRING 
00A4 Co OF PUSHAB OUT"ARGLIST 


ENTRY 1A78 FORMATTER, STS_DECODE, Save R2,R3,R4,- 
TRANSLATE 8 BITS, R7 


Bete Se Ge Sete 
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5 TA? 
-Jan- 00:4 AX-11 Bliss-32 V4.0-74 P 
So erent ented nage Aer Souten]98s 19:80:23 $25ssouacd$ fear .Buesacitavepvoer.eszei%* «) “ 
BYTES DESC_TBL : : 
“HORE Rae Flatt ; : 
7 oe re CALLS 4 TRANSLATE_BITS : . \ 
i £8 BLBC 1$ ; : | 
mt ee poet Palen tog Zouk 
65 ot FB ‘. CALLS #2, OUTPUT_LINES -_— : | 
o g ° 1 
#1, LABEL_AND_HEX_OUTPUT : ; 
. ; o4 chat (3h) ; 0938 | 
ov e 1 
FAO_STRING + 0937 ; 
“8s puns baal : : 
Ty Co OF PUSHAB BYTES DESC_TBL ; : | 
re OAS OF PUSHAB PLT e eT o+4 : 31 
67 de é rs CALLS #6, TRANSLATE_BITS ; : 1 
OA toa 3 DD PUSHL OUT_ARGLIST ; 0940 : 
64 A? DD PUSHL  FAO"STRING ; : 1 
” BS 6p 008 28: BURG gg’ CUTPUTALINES = 046 | 
66 07 FB O00BF CALLS. ty _LABEL_AND_HEX_OUTPUT ' . 
gE D4 ce cURL (sp) 3 0949 + 
4 a5 4 f FAO_STRING > 0948 31 
gone £2 SF M4068 PUSHAB OUT™ARGL i 
0234 ¢2 OF OCD PUSHAB BYTEG DESC_TBL ; i] 
7) AS SF 0004 PUSHAB FRATR STS+5 1 
67 Fe 7 CALLS #6, TRANSLATE_BITS ; 3 | 
°* ons 25D 90000 PUSHL © OUT_ARGLIST ; 0951 :] 
64 Ad DD 000E1 PUSHL  FAO"STRING ; i] 
65 FB E4 - CALLS ae. OUTPUT_LINES t om | 
66 a 3 Eg . CALLS #1, LABEL_AND_HEX_OUTPUT : 3 ! 
7E FE A3 9A OO0E MOVZBL FRATR 31846, =(SPY : 0959 : 
FE6O CF 1 FB i CALLS He SOMMARY_MODE_BYTE_DECODE tons i] 
os Pe f CALLS a LABEL_AND_HEX_OUTPUT Fe 3 
E FF OAS GA MOVZBL FRATR STS*7, =(SP 3 i] 
FEC8 CF i FB CALLS a. CRTRLR_FLG_BYTE_DECODE  peoet : 1 
9 OD ; 0972 : 
#1, LABEL_AND_HEX_OUTPUT : : 
$6 j 4 Rove FRATR STSB, Ri ; 0974 ; 
OF re 5 f BBC #1. FRMTR_STS*8, 5S ; q 3 
10 A 44 AG SE at MOVAB P.AEJ, ARGLIST#f : i] 
a my 5 i ROVL PAO STRINGS S30, “FAO STRING : 80 31 
50 63 oe ; — 4; f 5$ EXT2V no: 68 FRMTR.STS+8, RO ; ; 
* Bm HE Fas fie aAEY lB, son mel 
- Og — s BB R Sf: BLBS et ie : 09 : 1 


Kk 5 
TA78 DEVICE_DEP TA78 Device Dependent Module -Jan-1985 16:00:4 AX-11 Bliss-32 V4.0-742 P 0 TA? 
yOse008 1yenenn9R, Sibeses | YoesebuRLS BRE Mosler dF azeovoer.032n4%" «39 vo4 
0 50 £9 001 BLBC =—E.-s«aRO,_:«O9S : 0989 :1 
oc A 78 AG 001 gs: MOVAB P.AEN, ARGLIST+12 3 | : 1 
04 6 O41 001 : BBS j. FRATR_STS+8, 10$ : 3) 
5 6 0014 BBC FRMTR-STS+8. 118 : 31 
oc A 7A Ae SE 00146 10$:  MOVAB P.AEO, ARGLIST+12 : 31 
oF A2 9F 00148 11$: § PUSHAB ARGLIS§T+1 : 31 
Ae 0D 001 E PUSHL FAO_STRING : 31 
65 FB 001 CALLS He OUTPUT_LINES : 31 
A dD 00154 PUSHL #16 + 1005 i 
66 } Fe 001 6 CALLS #1, LABEL_AND HEX_OUTPUT : 31 
1 =A E 001 BLEC =FRATR_STS?9, T2 + 1007 31 
62 0090 cs of tite BOVAB P.AEP, ARGLIS1 + 1009 ; } 
6 OOAS C4 SE 00164 12$:  MOVAB. P.AER, ARGLIST : 1011 31 
08 01 A 61 3 169 188: BBS #i, FRMTR_STS*9, 14$ + 1013 : 1 
04 AZ — 0060 fh 9 01 HOVAB p Aer. ARGLIST+4 ; 1015 3 3 
06 =A O0E8 C4 3 176 14$:  MOVAB P.AEV, ARGLIST+4 + 1017 31 
3 FB OAC 17C 15$: BLBC FRMTR_STS+3, 16$ : 1020 31 
ge D4 001 CLRL =: (SP) + 1024 . 
D 00182 PUSHL SP : :1 
Ae 9F 001 S FAO_STRING 3 1023 :1 
00AS C2 9F 00187 PUSHAB OUT-ARGLIST : 31 
0254 (C2 9F 001 PUSHAB BYTE10_DESC_TBL : 31 
48 Ad 9F 0018F PUSHAB BIT_MSR 6 : : 1 
01 As 9F 001 2 PUSHAB FRMTR STS+9 : 1 
67 Q FB 0019 CALLS #6, TRANSLATE_BITS : 31 
51 E9 00198 BLBC 3=E._s«RO.*117 : 71 
00A4 C2 DD 00198 PUSHL  OUT_ARGLIST > 1028 31 
64 A2 DD 0019F PUSHL FAO-STRING : 31 
04 Ad OF DOT Ag PUSHAB ARGLIST+4 : 1027 31 
50 74 Ad DO OO1A MOVL FAO_STRINGS*12, RO ; :1 
50 DD 001A9 PUSHL RO : 1928 31 
5 BB 901AB PUSHR #*M<RO,R2> : 71 
65 6 FB 001 CALLS "6 OUfPUT_LINES : 31 
A 1 1 BRB 178 : 10 31 
35 FB OAS 1 €1.001B2 16$: BC #1, FRMTR_STS+3, 17$ : 10 : 1 
64 «OA 0124 C4 € 0018 MOVAB P.AEX, FAO STRING : 10 31 
Oc A2 01 A3 0 F 001BD EXTZV. #2, #5, FRATR_STS*+9, ARGLIST+12 ; 10 31 
OC Ad 9F 001C4 PUSHAB ARGLIST+12 : 1040 31 
64 A2 DOD 001C7 PUSHL FAO STRING : 31 
4 Ad 9F OOICA PUSHAB ARGLIST+4 : 1039 71 
50 4 A2 00 0010D VL FAO_STRINGS*12, RO ; 31 
DD 0010 PUSHL RO : 31 
65 BB Bolb CALLS #6" OUTPUT _LINES bag .] 
OF 01 =A’ eI 108 BBC #6. FRATR shen5 17 : 1042 31 
OC A2 0284 ¢ 1 MOVAB BYTE10 DESC_TBL*48, ARGLIST#12 31 2% 
0¢ Ad 9F OO1E PUSHAB ARGLIST?+ > 1046 71 
4 Ad DD 166 PUSHL FAO_STRINGS*+12 : 31 
65 02 FB OOIE CALLS #2, OUTPUT LINES : 3:1 
01 A ? TEC 178 ist FRATR_STS+9 + 1052 3 
64 A2 0198 cs ? iF BOVAB PAEZ. FAO_STRING > 1054 : 
64 A2 0206 (C4 9E 001F9 188: MOVAB P.AFB, FAO_STRING : 1056 31 
6E 04 OOIFF 19$:  CLRL (SP) :1 : 1 


TA78_DEVICE_DEP TA78 Device Dependent Modul } : 
4 a ule -Jan-1985 16:00:4 AX-11 Bliss-32 v4.0-74 
13-Nov-1 R 19: 0:35 Loes$puaAce EERE BUG SRC ITA7BDVDEP.B3264"" 3} 


<- 
2>. 


SE DD PUSHL $P 
65 ™ he bb PUSHL  FAO_STRING ; 1 
os 4 CALLS — #2¢“QUTPUT_LINES 4 
_ 1 CALLS #1, LABEL_AND_HEX_OUTPUT ; 7. 
se CLAL (SB) tones : 1 
64 OAD OF PUSHAB FAO_STRING : 
bore SOF PUSHAB OUT-ARGLIST ; 1065 1 
ae: Ra TEL : : 
67 Oe nM tt PUSHAB FRATR STS+10 ; : 
OA 98 £8 CALLS” #6, TRANSLATE_B1TS : : 1 
00A4 C2 DD eB ; 31 
¢ £8 a LLS #2, “OUTPUT LINES : 
8 1 2 CALLS #1< LABEL_AND_HEX_OUTPUT ; 1074 : 1 
o 5 ss 3 ROVAB PAF, ARGLIST | Bogs : 1 
os 084 SD PUSHL FAO_STRINGS*28 ‘7 7i 
a bb ae ase ; a: 
66 01 FB CALLS #1, LABEL_AND_HEX ; 1084 33 
; OUTPUT ; 
06 A2 06 a3 6s 0230 ce 9 MOVAB P.AFF, ARGLIST ~ ’ * 10 : ! 
3) bb EXTZV ai, #2, FRATR_STS+12, ARGLIST+4 : 108 He 
65 ne 8 PUSHL FAO_STRINGS#8 : 1089 : 1 
F8 BF 06 AS 9 site #2," OUTPUT LINES ; 2 
34 1 BEQL cagrn steer e #248 : 1091 ; 7 
0B AZ OzKe 4 OE ROVAB P.AFH, ARGLIST#S ; 1094 : 
a PUSHAB ARGLIST#8 : 1094 7: 
re LS #2, OUTPUT _LINES : 
Ss & CLAL = (SP) _— : 1 
64 Ag OF PUSHAB FAO_STRING ; i] 
goes te ot PUSHAB QUT =ARGL IST 5 to i] 
me fe PUSHAB BYTET3 DESC_TBL : : | 
67 9 HAB FRATR STS+12 : 
OA : CALLS #6, TRANSLATE_B1TS i] 
00a C2 DD or, | aut fas 4 
AD DD ¢ A rg OUT_ARGLIST + 1100 4 
1 FB 0G * CALLS. #1. LABEL_AND_HEX OUTPUT : 1106 31 
“ee OF AF A MOVZBL FRATR_STS#13,“ARGCIST ines : 
08 AD «= (Obae kk SE OK ROVAB” P.AFJ. ARGLIST#4 : 1109 24 
SOD OC MOAB —PLAFL; ARGLIST+S : 1193 i} 
0088 3 DD 00 PUSHL  FAO_STRINGS* ; 1112 71 
65 ; FB 00 CALLS #2, OUTPUT C ines : : ! 
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v04 1eonou-19be 18iboes — PoasupuRcs Bene Mogenesta7epvoer.e3264%" (8s 
BF BR Boge Cee FT? Lamel_AND_WEN_ OUTPUT ead 
6 06 A3 3A C MOVZBL FRATR STStt¢ “ARGCIST : 1119 
04 a 0284 C4 ¢ MOV P.AFN; ARGLIST+4 + 1120 
8 A a £4 9 ¢ ROVAB p AAFP. ARGLIST+8 : 1 } 

0088 ¢ DD OG2D4 PUSHL FAO_STRINGS*32 : 

3} FB 00008 CALLS a OUTPUT_LINES ; 
6 iy Pe Bp cars até LABEL_AND_HEX_OUTPUT heme 
3C5F F 8 As 8} £0 CAP RRNUM, #75455 ~ : 1130 
62 02EC £4 9E Eg v P.AFR, ARGLIST : 1133 
DD 002ED PUSHL R + 1135 

74 A2 DO OOEF PUSHL FAO_STRINGS*+12 3 

65 0 FB OOoF CALLS #2 CUTPUT_LINES : 
ss BPR SF 2 EAE aes no ex. ourru a 
3CSF BF 8 a3 8} FA np RRNUM. em5455—= + 11646 
62 0314 cs 9€ oe v P.AFT, ARGLIST + 1147 
DD 0030 PUSHL R + 1149 

74 Ad DD PUSHL FAO_STRINGS*+12 ; 

65 02 FB 0030C CALLS a OUTPUT _LINES 3 
12 DD OO3O0F 238:  PUSHL #16 + 1156 

66 01 FB 00311 CALLS #1, LABEL_AND_HEX_OUTPUT : 
3CSF BF F8 a3 8} 14 CAP RRNUM. 615455 : 1158 
62 033¢ C4 9E 0031C MOVAB P.AFV, ARGLIST : 1161 
52 0D 1 PUSHL R + 1163 

7% Ad 0D 3 PUSHL FAO_STRINGS*+12 ; 

65 02 FB CALLS ae OUTPUT _LINES : 
1 D 248 PUSHL #19 : 1170 

66 01 FB 00 CALLS #1, LABEL _AND_HEX_OUTPUT : 
3C5F BF FS As 8} € cn RRNUM, 615455 : 1172 
62 0364 cs MOVAB P.AFX, ARGLIST + 1175 
00 PUSHL R : 1177 

7% DD PUSHL FAO_STRINGS*+12 : 

65 02 FB CALLS #2, OUTPUT_LINES ; 
14 0D 258: PUSHL @# 3: 1184 

ry) 01 FB 99 CALLS #1, LABEL_AND_HEX_OUTPUT ; 
04 00348 RET > 1186 
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3 sa 1985 16:00:4 AX-11 Bliss-32 v4.0-742 ; 33 
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1enbee19 18:88:28 255$DUAG2: CERF .BUGSRCITA78DVDEP.B32:1>" (6) 
— ERROR_NUMBER_BYTE_DECODE (error_number) : NOVALUE = 


! Functional Description: 


This routine decodes and outputs the errcr number bytes. It is called 
by the TA78_formatter_sts_decode and the TAT. drive sts, decode routines. 


Calling Sequence: 

ERROR_NUMBER_BYTE_DECODE (error_number) ; 
Input Parameters: 

Error_number = contents of the error number bytes. 
Output Parameters: 

None. 


STORE _STRINGS ( bytel 
‘DIAGNOSTIC DATA AVAILABLE’, 
"CRITICAL ERROR" ) ; 


APslisteid = error.numbercOelOreee 
If .error_number<2> 
~ Arotist(2] = ZASCID "OPERATIONAL ERROR® 
Arglist(2) = ZASCID “DIAGNOSTIC ERROR’ ; 
Case .error_number<11,3> from 1 10 7 of 


Se 
1J: Arglist = ZASCID ‘MISCELLANEOUS’ ; 
@): ArgltseC3) = HASCID "READY S 
: Arglisc = ZASCID ‘WRITE® | 
4): Arglist,3) = ZASCID ‘Tu PORT® ; 
5): Arglist = ZASCID “ERROR CORRECTION’ ; 
§ : Arglist = ZASCID ‘STI COMMUNICATION’ ; 
: Arglist = ZASCID ‘MICROCOMPUTER’ ; 
pepTRNNNE Ds Arglist(3] = ZASCID “UNKNOWN FAULT NUMBER’ ; 
OUTPUT_LINES ( .fao_strings 4 » erglist(O), 
-fao_strings(5), arglisti2), 
-fao_strings(4], arglist bs 
If ( TRANSLATE BITS (error number ,bit_esk 3,byte! desc _tbi, 
out_argl ist, fao_string, BREF (ONT) 
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a ee ee ee ee EE ee ee ee eS SS 


cere PEVICE DEP TA78 Device Dependent Module 
1 OUTPUT_LINES ¢ 


Return ; 
End ; ! Routine 


44 20 43 49 54 
EEE 
45 20 4 

55 


40 


= 
SN Som 


20 4C 41 GE 4F 49 54 41 
00 
45 20 43 49 54 53 4F 4E 


55 4F 45 GE 41 4C 4C 45 


00 00 00 45 
00 54 52 4 


43 45 52 52 4F 43 20 52 
43 49 GE 55 4D 4D 4F 43 

00 
45 546 55 50 4D 4F 43 4F 


4C 55 41 46 20 4E 57 


we 
oe heal 
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-fao_string, out_arglist(0] ) ; 


a 18:08:85 


yore Bliss-32 V4.0-742 


«PSECT SPLIT,NOWRT,NOEXE, PIC,2 

sASCII \DIAGNOSTIC DATA AVAIL ABLE\<0><0><0> 

eASCII \CRITICAL ERROR\<0><0> 

+ASCII \ERROR ID NUMBER = \<0><0> 
ONG ireverse 

ADDR ESS P.AGC 

-ASCII  \OPERATIONAL ERROR\<0><0><0> 

«LONG i So tad 

«ADDRESS P.A 

“ASCII \DIAGNOSTIC ERROR\ 

-LONG 17694: 56 

sADDRESS P.AGG 

eASCII] = \MISCELLANEOUS\<0><0><0> 


«LONG 17694733 


° 0472s 
SCI] \TU T\<0> 
Sy 
P.AGO 
“ASCII \ERROR CORRECTION\ 
- LONG Vers rse 
"ADDRESS. P AGQ 
~ASCIT \STI COMMUNI CATION\<0><0><0> 
os 17694737 


DRESS P.AGS 
CII] \MICROCOMPUTER\<0><0><0> 


- LONG erie 
"ADDRESS. P AGU 
ASCII = \UNKNOWN FAULT NUMBER\ 


-LONG 17694740 
“ADDRESS P. AGW 


-PSECT SOWNS,NOEXE, PIC.2 
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TA78_DEVICE_DEP TA7B Device Dependen os : 
voo-000 = aa epime hee EaSOc}ORE 19:00:08 YESH tted F BuésnciTa7Bovoer.032<4%° (2) 


00000019 O002A4 BYTE1_DESC_TBL: 
-LONG 25 
“ADDRESS P.AFZ 
SHS BSS thes 
«ADDRESS P.AGA 
«PSECT SCODE,NOWRT, PIC,2 
001C 00000 ERROR_NUMBER BYTE_ g DEC ORE 
WORD R3,R4 


P ge ROVAB duteur NES, RG : : 

; 0 . MOVAB P.A : $ 

0 3 19 MOV ARGLIST#I2, R2 : ; 

fe OA 3 §£ OoolA AOVAS PAGS, ARGLIST - : 

FB OA 04 Ac OA EF 3 EXTZV i. #10, ERROR NUMBER. ARGLIST+4 : 3 
07 A 3 C RROR_NUMBER ; ; 
FC OA 1C A 3 A HOVAB he ARGLIST+8 : ; 

a 3% «AS OOF 1 1$: MOVAB -~P. AGF ARGLIST +8 : ; 

50 05 aC 03 EF 6 2$: EXTZV #3, as. E OR_NUMBER+1, RO ; : 
0027 0021 0018 i : : ; : 
b0%e 0034 $3 bo0cs “ — Pi: $3 - : : 
$-3$.- : : 

ga $,- 3 3 

105-38 : ; 

62 00E0 c3 9 MOVAB p.AGV, ARGLIST#12 : : 

62 4C , H ROVAB P AGH, ARGLIST#12 : : 

62 58 AS H ROVAB PAGJ. ARGLIST#12 : ; 

62 68 AS 9E f MOVAB P.AGL, ARGLIST#12 : ; 

62 7 AS OF ROVAB P.AGN, ARGLIST#12 ; : 

62 0090 cS ROVAB P.AGP, ARGLIST#12 : ; 

62 O0ac C3 9 MOVAB P.AGR, ARGLIST+12 : ; 

62 00c4 ‘ 9E 00( MOVAB P.AGT, ARGLIST#+12 ; ; 

mt) PUSHL R2 ; : 

6C D 00¢ PUSHL FAO_STRINGS*16 : ; 

FC Ag OF 001 PUSHAB ARGCIST+8 : : 

68 Ag DD 00 PUSHL FAO STRINGS*+12 : F 

FL AD OOF PUSHAB ARGCIST : ; 

64 A2 dD PUSHL FAO_STRINGS*8 : ; 

64 44 CALLS #6, OUTPUT_LINES 3 : 

CLAL (SP) 3 3 

D PUSHL SP : ; 

58 Ad OF HAB FAO_STRING : : 

00 C2 OF PUSHAB OUT“ARGLIST : ; 
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; Routine Size: 190 bytes, Routine Base: 


; 839 
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SCODE + 04FB 
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AX-11 Bliss-32 V4.0-742 P 


255$DUA42: 


ERROR NOMBER 
, TRANSLATE_BITS 


RING 


“OUTPUT _LINES 


5 16:00:4 
Siboies 

PUSHAB BYTE DESC_TBL 

PUSHAB BIT_MSK 

CALLS 

LBC 

PUSHL no, -ARGLIST 

PUSHL FAO-ST 

CALLS #2, 

RET 


ERF .BUGSRC J TA78DVDEP.B32; 
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1 SLOGAL Routine TA78_DRIVE_STS_DECODE : NOVALUE = 
Begin 


lee 
i 


Functional Description: 


eersres 
wna 


CNAME WN" OOONOUS 


This routine decodes and outputs the extended drive status information 
that is appended to a logmessage ‘STI drive error’ log entry for a TA78. 


co 
WIV 


i 

i 

i 

Calling Sequence: 
TA78_DRIVE_STS_DECODE () ; 
Input Parameters: 

None. 

Output Parameters: 

é None. 

ie 


C200 CO CD, 
DPA 


SS 


86 


Bi_diag_sts_codes: VECTOR C byte} 
Initial (oye .. fe ZX"E*,2K°16" , 2x"2D", 2x35") D, 
B2_diag_sts_codes: VECTOR C byte 
Initial (byte 1 »2-3,4,8,3X"D", 3X15") ), 
Rmc_sts_codes: VECTOR catvbyte 
Initial (byte oth aele aoe gt eri CT 
=X {ai gs ° Hg. a *90° 2x ‘92° 
xx* * , 2x'°99" ,2x° Cc’ it D’ ahs Ai‘ 
zx° ZX'B2° ,.2X°FF*) ) 
Tu_string: Initial CEASCIB "TAPE UNIT SELECTED = 


Sefial number : word ; 


LEARN LSSSVEREAN SS SANS AF UII SOO UHRA Po oS Boer oMo ne 


Pp STORE_STRINGS ( b1_diag_sts_codes, 

° THER TORITES 

P "STATUS (READ) * 

P "STATUS (READ REVRS)’, 

P TRANSMISSION (READ)' 
"TRANSMISSION (READ REVRS)' ) ; 

a STORE_STRINGS ( b2 diag sts_codes 

P Pad TRR CORRECTION (READ)* 

P "DBL TRK CORRECTION (READ REVRS)", 

Pp "SNGL TRK CORRECTION (REA 

P "SNGL TRK CORRECTION (READ REVRS)', 

P "MEDIA® 

P "OTHER (READ)* 


‘OTHER (READ REVRS)* ) ; 


Sree ashore: 8" Gey NRZI_ENCODING' 
1600 BPI PE ENCODING',- 


cc cc cc me ce ce ce a ce ee ce ce cc cc ce ed ee ce ee ce ee ee ce a ce ce we ed ee ed ed ed ed ed ee eed eed ed 
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s> 


"6250 BPI GCR ENCODING’ ) ; 
STORE_STRINGS ( bytel7, mh 
SECECT’, 
PED 
OF PREAMBLE’, 
R 
I 
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3 1307 

; 1 

3 1 

; 1 

: H 

: 1318 

3 1514 

3 : 12 

3 HF 

: 131 

: 911 P 1 STORE_STRINGS ( byte18, 

: 9 B 1855 : Or Test TACH PULSE® 

: 91 Pj ; "ECC CONTROLLER PASSED SELF-TEST’, 
: 914 P 1 "ECC CONTROLLER FAILED SELF-TEST’, 
: 915 P 1324 "READ PATH PASSED SELF-TEST’, 

; 916 P 1325 "READ PATH FAILED SELF-TEST’ 

: 91 P 1 6 EAD EL TESTS ALL PASSED’, 
; gig P 1 chAST TACH PULSE’, 

: 91 P 1 8 ""NOT CAPABLE” FOUND", 

: 920 P 1 "'GCR ID" FOUND’, 

: 921 P 1330 "RE 1D" FOUND’ 

: 9 : P 1331 "BAD STATUS (WRITE TEST)’ 

; 9 B 133¢ "GOOD TAPE MARK FOUND ON TAPE STS", 
> 926 P 1 *"ARA ID" FOUND’ 

: 925 P 1 "TAPE MARK FOUND’, 

: 9 6 P 1335 "PREAMBLE END NOT FOUND’, 

: 9 P 1 "READ PATH FAULT 1°, 

: 928 Pj "READ PATH FAULT 2°. 

: 9 P 1338 "UNEXPECTED ''IBG’ IN DATA’, 

: 9 P 1339 "POSTAMBLE LONG’ , 

; 3 1 P 0 :POSTAMBLE SHORTS, 

; 335 1 : X 

; 3 4 P i ; STORE_STRINGS ( b te19, 

i 936 P 1345 "INTERBLOCK READ’, 

: 93 P 1 6 "TEST PE ID BURST’, 

; 938 P 1 "TEST GCR ID BURST’, 

: 939 P 1 5 ‘TEST ARA ID BURST’. 

: 940 P 1 "TEST TAPE MARK', 

> 941 P 1 20 "TEST ARA BURST’ 

: 3g P 1 y L NON-BOT READ’, 

: 94 P 1 38 "RUN RAC SELF-TEST 

> 94% P 135 "TEST UNKNOWN ID BURST’ 

: 945 P 1354 "RUN READ CHANNEL MICROS TEST’, 
; 946 P 1355 "DIAGNOSTIC READ CMD* 

; 94 P 1 4 "RUN READ CHANNEL SELF-TEST’, 

: 948 P 1 "RUN CLEAR ALL RAC TEST’, 

: 38 P i886 Finn garg eee” 

: 951 1 : 

; 93¢ P 1361 2 STORE_STRINGS ( byte25 

: 95 P 1 . TUEAK AMPLITUDE ON PARITY BIT’, 
> 954 P 1 4 "PARITY mB 950 NOT DONE 


OM” PAR R' 
"LEVEL 1 PROTOCOL ERROR’ ) ; 
STORE_STRINGS ( b edd, 


6 
TA78 _DEVICE_DEP TA78 Device Dependent Module Basan 5 16:00:4 AX-11 Bliss-32 v4.0-7 Pp 9 
O42 00 1 ==} 382 19:80:28 Loess buRtS Beas .bosceeita7apvoer.e3204%* Ri 
; g 5 P 1 "ILLEGAL 5-TO-4 FOR PARITY BIT’, 
; ° Pj "MARK 2 FOR PARITY BIT' 
; Pi ‘END MARK FOR PARITY aif 
; Pj y STAMBLE FOR PARITY BIT’ 
; P 1 "M8950 DATA OUTPUT (PARITY BIf)' 
; 1 "ECC CORRECTED OUTPUT (PARITY BIT)" ) ; 
; : Pi i STORE_STRINGS ( byte30 
; 963 Pi i "SNGL fRK ece PERFORMED ON DATA’, 
; P 137 *2=-TRK ECC PERFORMED ON DATA’, 
3; 965 P 1374 "ECC COULD NOT CORRECT DATA’, 
; 366 P 1375 "NO POIN ER TO TRK IN ERROR’, 
3 P 1 ud: "ACRE DID NOT CHECK 
; P 137 ' Tie: DURING DATA Of RECORD’, 
; Pi 28 "M8951 PROGRAM PARITY ERROR . 
; 970 v4 "CRC" DID NOT CHECK’ ) ; 
3 a6 1 : 
: 97 P 1 é STORE_STRINGS ( bytes?. 
: 97% P "AMTIE PARITY’, 
: 975 P 1 "READ PARITY', 
: 976 P 1385 "WwCS PARITY’, 
: 97 P 1 TACHOMETER 
; 978 Pi "TAPE UNIT PRESENT’ 
: 979 Pi ' PARITY ERROR’, 
: 9 Pi "WRITE DATA STROBE’ 
3 3 1 i "STATUS PARITY ERROR’ ) ; 
: 9 Pj STORE_STRINGS ( byte39. 
: 9 P 1 "CABLE NOT PRESENT’ 
; 985 P 1 "CONTROL PULSE ERROR’, 
: 9 Pi "DATA PULSE ERROR’ 
; g P 1 "CONTROL PARITY ERROR’, 
3 9 P "DATA LAT 
: 989 P C TY ERRO 
: 1 
3 1 
3 1 
3 1 
3 1 
3 1 
: 1 
: 1 
3 1 
; 1 
: 1 
3 1 
3 j 
3 1 
3 1 
3 1 
: 1 
3 1 
3 1 
3 1 
: 1 


SSausuniaSeS VERRAN TSSOP ONES 


990 
991 4 
93¢ P 14 
99 P 14 weLK’ 
994 P 14 "RESIDUAL fo “WMC DR’ BUS’, 
995 P 14 ""ACRC" TO "WMC DR’ BUS’, 
9% P 14 "CRC TO “WMC DR’ BUS’, 

P 14 "ECC TO "WMC DR’ BUS’, 
998 P 14 "TRANSFER', 

P 14 *"WMC'" NOT’ DONE’, , 
100¢ 4 ""MC"" NOT DONE’’) ; 
1008 P 14 STORE_STRINGS ( bytedt 
1 P 14 U PORT 1 WRITE PATH ENABLE’, 
1 P 14 "TU PORT Q WRITE PATH ENABLE", 
1005 P 14 "TU PORT 1 READ PATH ENABLE’, 
1 P 14 "TU PORT 0 READ PATH ENABLE", 
i P 14 "BYTE COUNT TERMINAL COUNT’, 
4 "SINGLE TAPE UNIT PORT’ ) ; 
1 4 
1 4 


par oars 
-o 
vv 


STORE_STRINGS ( byte42 
- Pye PORT 3 WRITE PATH ENABLE’. 


TA78 DEVICE_DEP TA78 Device Dependent Module -Jan-1985 16:00:4 AX-11 Bliss-32 v4.0-7 P 
VOucObS 1eanevnl98e 1Siberes — YoSsebuRLS RF Mo eeaesFazenvoer.032nk%* cf? 
; 101 P 14 "TU PORT 2 WRITE PATH ENABLE’, 

5 101 P 14 ; "TU PORT READ PATH ENABL F 

; ' 14 ; "TU PORT 2 READ PATH ENABLE’) ; 
; 101 P 1425 2 STORE STRINGS ( 

101 B 1436 "ete PER heap PARITY ERROR’, 

: P 14 a ROM" PARITY ERROR’, 

: 14 8 '"DR mBb" PARITY ERROR’ ) ; 

: 1 P 14 STORE_STRINGS ( byteS1, 

: 1886 P 148 PYRANSLATOR “ROM PARITY ERROR’, 
; 4 16 ‘PE’ WRITE PARITY ERROR’ ) ; 

; 6 P 14 5 2 STORE_STRINGS ( bytes! 2 

31 P 14 "WRITE DATA REGISTER PARITY’, 

; 19 14 "POWER OK' ) ; 

: 1031 P 1440 2 STORE_STRINGS ( byteS1_3, 

: 10 é P 1441 © AL RECEIVER RDY (RX)* 

; i 146@ "INTERRUPT CLOCK TIME (MCLKS" ) ; 
: 1035 P 1444 2 STORE_STRINGS ( byteS 

2 10 P 1445 : Bie eet re RING’. 

.| ns or 

> 1039 P 1448 "PES'. 

3 1040 P 1449 *"REWINDING', 

: 1949 4 1431 + REAbY Of" 

:1 14 "READY' ) : 

; isc 14 5 “se 

> 1045 P 1454 2 STORE_STRINGS ( byte53, 

- p 1455 BSE 

> 1048 P 1489 "LUR’. 

+ 1049 P 1458 "WRITE INHIBIT’, 

; 1050 P 1459 "WRITE® 

: 1051 P 1460 *REVERSE', 

; 105¢ P 1461 "FORWARD * 

: 1055 146¢ "MANUAL TEST’ ) ; 

71 33 P 1464 2 STORE_STRINGS ( byte5é, 

24 6 P 1465 ‘ARA’’ ERROR", 

71 3 P 1466 "PEC* 

: 1 38 146 "CMD PE’) ; 

3% P 1469 STORE_STRINGS ( byteS7, 

: 10g) 1470 TACH 

: 1 P 147 *R NABLE', 

:1 P 1298 ‘ORTTE® . 

: 147% "WRITE BIT 4°) ; 

31 1476 Bind 

31 147 Drive_sts = emb(82,0,8,0] : VECTOR C,byte], 


SE er et ire ne RiSertOHs 1$e00st8 YSU SUSIE? Y62674% payne. 32st" 9) 


4 Errnum = drive sts({13) : ae 
4 Unit_number orfeatee ve sts word, 
7 4 Gap_Count = drive_st ste Long, 
7 4 Byté_count = drivé_ staf 5 eee 
4 & ¢ ped.count = drive ststt 
74 4 Err_code_cnt = griye_st 
75 é Mods seléct = . (dr oe <0. ond. 
485 Spee = sere ve_st ae 
4 Sn_b : drive “itst 
4 Sn-b1 = .drive_ “its 


; Output the header. 
ir rel tected * = ——— ("TA78 EXTENDED DRIVE STATUS INFORMATION’) 
OUTPOT “LINES. ¢ ‘fao_strings(0J, arglist(O) ») ; 


O00 
Wn 


Decode and output byte 1, speed. 
LABEL_AND_HEX_OUTPUT (1) ; 
ArgListety = S afte 


-$ts(0J . 
Arglistli ZASCID™* IPS TAPE pRIVE : 
OuTPUT_LI NES . fao_strings(11 ye otistcoa »; 


EEE EPP PEPE 


ARANLSSSLEAE 


i] 
: Decode and output bytes 2, density. 


LABEL_AND_HEX_OUTPUT (2) ; 


If ( TRANSLATE_BITS (drive_sts(13,bit_msk_11,byte2_desc_tbl,out_arglist, 
caee fao_string, “REF (OS) § . re itie 


“OUTPUT_LINES ( .fao_string, out_arglist(0) ) ; 


BESESS SEES I to See 


] 
: Decode and output bytes 3/4, unit number lo/hi. 


LABEL_AND_HEX_OUTPUT (3,4) ; 


argi isttol = = ZASCID ‘MSCP UNIT NUMBER = ° ; 
Arglist eunit_number ; 


OUTPUT_LINES ( .fao_strings(2), arglist(0] ) ; 


q 
: Decode and output bytes 5/6/7/8, gap count. 


LABEL_AND_HEX_OUTPUT (5.6.7.8) ; 


Argtisttod = = ZASCID "GAP COUNT = °* ; 
Argiist(1) = .gap_count ; 


OUTPUT_LINES ( .fao_strings(2), arglist(0] ) ; 
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t 

i 

Decode and output byte 9, diagnostic mode status byte 1. 

LABEL_AND_HEX OUTPUT (9) ; 

DIAGNOSTIC S18 BYTE. DECoDE (1,61 diag sts codes, 5, 
B1_diag_sts_codes_desc_tbl) ; 


Decode and output byte 10, diagnostic mode status byte 2. 


LABEL_AND_HEX OUTPUT (10) ; 

DIAGNOSTIC_STS_BYTE_DECODE (2,b2 giag.sts codes,7, 
B2_diag_sts_codes_desc_tbl) ; 

I 

i If either of the diagnostic status bytes contain a non-zero value 

roo ag rest of the extended drive sts information should not be 

i . 


if .drive_sts(8)_NEQ 0 OR 
gar ests 9] NEQ 0 


Return ; 


a at a SD a 4 td 8 tt ws dd ts ts 3 4 


FEISS SE BS EEE 
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' 
: Decode and output byte 11/12, diagnostic mode status bytes 3/4 (unused). 


LABEL_AND_HEX_OUTPUT (11,12) ; 
i] 
} Decode and output byte 13, opcode save. 


LABEL_AND_HEX_OUTPUT (13) ; 


Arglist(O) = .sti_string ; 
argtistes = “drive. stst13) 3 


OUTPUT_LINES ( .fao_strings(7), arglist(0] ) ; 
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; Decode and output byte 14/15, error number bytes. 
oe AND_HEX OUTPUT (14,15) ; 
f 


NNN OO 


RROR-NUMBER_BYTE_DECODE (.errnum) ; 


Decode and output byte 16, read micro controller write fail bits. 


LABEL _AND HEX_OUTPUT (16) ; 
ArglistC0] = ZASCID "RMC WRITE FAIL BITS’ ; 
OUTPUT_LINES ( .fao_strings(3), arglist(0) ) ; 


i] 
i Decode and output byte 17, read path status. 
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VICE_DEP TA78 Device Dependent Module sSepannt98s 19:00:48 


' 
LABEL_AND_MEX_OUTPUT (17) ; 


If ( TRANSLATE _BITS (drive sts(16],bit_msk_0,byte17 ges 
a out_arglist, fao_string, ZR REFT 
) 


"OUTPUT_LINES ( .fao string, out_arglist(0J H 
4 
} Decode and output byte 18, RMC status byte. 
LABEL_AND_HEX_OUTPUT (18) ; 


SRCIFA7BDVDEP.B3204%" (35 


Arglist(0] = ZASCID "UNKNOWN MICROCONTROLLER STS CODE’ ; 


Incr I [res 0 to 20 do 
If drive. sts(17) EQL .rmc_sts_codes[.1] 
Begin 
argue = byte18_desc_tbi[.1,0,0,0,0) ; 
x 
End ; 
End ; 
OUTPUT_LINES ( .fao_strings(€3], arglist(0] ) ; 
: 
} Decode and output byte 19, RMAC command. 
LABEL_AND_HEX_OUTPUT (19) ; 
Arglist(O) = bytel9_desc_tbiC.drive_sts(18].0,0,0.0) ; 
OUTPUT_LINES ( .fao_strings(10), arglist(0) >) ; 
: 
: Decode and output byte 20, read channel AMTIE sts. 
LABEL_AND_HEX_OUTPUT (20) ; 
Fao_string = Ae oe *!39< !>AMTIE CHANNEL @#!AS° ; 
Incr I iree @ 


Be 
If (drive. sts(19])<.I> 


J te31_d tbiC.1,0 3; 
NES ( yy a wstrtng, argeiseroy. 
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649 ' 

° » Decode and output byte 21, read channel done sts. 

6 ; LABEL_AND_HEX_OUTPUT (21) ; 

654 Fao _string = ZASCID °!39< !'>MB95) FAILURE ON CHANNEL #!AS° Py 

655 Incr I from 0 to 7 do 

6 $ Begin 

6 If .(drive_sts(20])<.I> 

$28 Then 

$60 Reet TstlO) = byte3t_desc.tblL.1.0.0,0,03 
rglis = € esc .1,0,0, : 

$83 OUTPUT _LINES C .fad_string, abet igeeeg S; 

66 


' 
Decode and output byte 22, read channel illegal sts. 
LABEL_AND_HEX_OUTPUT (22) ; 


SEeset 


WN —O OBNOVES WO OONAVE WO 


SSS FS SSL LILI EE EE EE EE EE 
NOw 


670 Argliseloy = ZASCID ‘READ CHANNEL ne ” (CH 7:0)° ; 
ere OUTPUT_LINES ( .fao_strings(3J, arglist(O) ») ; 
67 ! 

3 or Decode and output byte 23, read channel mark 2 sts. 
676 LABEL_AND_MEX_OUTPUT (23) ; 
67 Fao_string = BASCIS "MARK 2 ERROR, CHANNEL !7B (M8950) ; 
67 Ince I from 0 to 7 do 


—Owooc 


Soo 


Begin 
If .(drive_sts(22])<.I> 
Then 
Begin 
Argiiseloy = .(drive_sts(22))<.I> ; 
ow LINES ( .fao_string, arglist(0) ) ; 
nd ; 
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Decode and output byte 24, read channel end sts. 


SERENE SABES 3 


a a a et ae eh ae ee a ae mm me a ek ed ed od od = = 8s = = 2 
—> 


cm a a a a ee a eee ee ee ee ee ed ed ed ed ed wd = 


Be Se Se Se Se Se Se Se Se Se Se Be Se Se Se Ge Se Ge Se Se Ge Se Se Ge Se Se Ge Se Se Se Se Se Se Se Ge Se Ge Se Se Se Se Se Se Se Se Se Ss Se See ee Se Se Sees rtes 
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691 : 

69¢ LABEL_AND_HEX_OUTPUT (24) ; 

694 Argliselo) = ZASCID “END MARK FOR READ CHANNELS 7:0° ; 

695 OUTPUT_LINES ( .fao_strings(3], arglist(0) ) ; 

oH 

ons : Decode and output byte 25, read channel parity sts. 

; LABEL_AND_HEX_OUTPUT (25) ; 

7 § If ( TRANSLATE_BITS (drive sts(26] bit ask 0.byte2s gone tbi, 

A me out_arglist,fad_stfFing, ZREFTO)) J 
en 

705 OUTPUT_LINES ( .fao string, out_arglist(0) ) ; 
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: 
Decode and output byte 26, read channel pe postamble detect. 
LABEL_AND_MEX_OUTPUT (26) ; 


Ar Met = wASCIO "READ CHANNEL PE POSTAMBLE DETECT’ ; 
OUTPUT_LINES ( .fao_strings(3], arglist(0] ) ; 


1 
} Decode and output byte 27, read channel data. 
LABEL_AND_HEX_OUTPUT (27) ; 


Ar Met = ZASCID ‘DATA FROM READ coAnmels TO ECC’ ; 
OUTPUT_LINES ( .fao_strings(3], arglistl eg 


! Decode and output byte 28, CRC byte. 

LABEL_AND_HEX_OUTPUT (28) ; 

OUTPUT LINES gee RE R OUTPUT BITS’ a 
gs(3J, arglist(0) ») ; 

| Decode and output byte 29, corrected data. 

LABEL_AND_MEX_OUTPUT (29) ; 


Arglist(0] = ZASCID bry | DATA (ECC TO CRC)* ; 
OUTPUT_LINES ( .fao_strings(3], arglist(0] >) ; 


: Decode and output byte 30, ECC sts byte. 
LABEL_AND_HEX_OUTPUT (30) ; 


If ( TRANSLATE BITS (drive sts(29],bit_msk_0,byte30 gone tbl, 
out_arglist,fao_string, ZREFCO)) J 


* OUTPUT_LINES ( .fao_ string, out_arglist(0) ») ; 
: 
: ; Decode and output byte 31, read channels 0 to 1 TIE. 


LABEL AND _HEX OUTPUT (31) 
READ_CHANREL _TIE_DECODE ( drive ~Sts(30),2REF(O)) ; 


Decode and output byte 32, read channels 2 and 3 TIE. 


{ABEL AND HEX OUTPUT (32) 
READ _CHANREL _TIE_DECODE ( drive. sts(31),2REF(1)) ; 
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' 

i Decode and output byte 33, read 4 and 5 TIE. 


LABEL_AND_HEX_OUTPUT (33) ; 
READ CHANNEL _TIE_DECODE (.drive_sts(32),2REF(2)) ; 


' 
Decode and output byte 34, read 6 and 7 TIE. 


LABEL_AND_HEX_OUTPUT (34) ; 
READ_CHANREL_TIE_DECODE (.drive_sts(33),2REF(3)) ; 


i] 
: Decode and output byte 35, read channel p TIE and TIE bus. 


LABEL_AND_HEX_OUTPUT (35) ; 


Fao_string = ry ¥ *!39< !>CHP TIE BUS 'AS' ; 
Incr I from 0 to 3 do 


Begin 
If .(drive_sts(34])<.I> 
Then 


byte31_d tbiC.1,0,0,0,0) ; 
C ~fe8.strine. argtisttos S; 


Fao string = ZASCID *!39<_!>TIE BUS = 'XB(X)" ; 
ArglistCO] = .(drive_sts(34))<7,4> ; 


OUTPUT_LINES ( .fao_string, arglist(0) ) ; 
' 


Decode and output byte 36, AMTIE byte. 
LABEL_AND_HEX_OUTPUT (36) ; 


Arglist(0) = ZASCID ‘TAPE UNIT BUS LINE AMTIE 7:0° ; 
OUTPUT_LINES ( .fao_strings(32, arglist(O] ) ; 


Decode and output byte 37, tape unit port sts. 
LABEL_AND_MEX_OUTPUT (37) ; 


If ( TRANSLATE _BITS (drive_sts(36).bit_msk_0,byte37 gese tbl, 
out_arglist,fad_string, ZREFTO)) J 


Then 
OUTPUT_LINES ( .fao_string, out_arglist(0) ) ; 


; Decode and output byte 38, tu port read data. 
LABEL_AND_WEX_OUTPUT (38) ; 


.BUGSRCITA7BDVDEP.B32.4°" (35, 
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“Nov-19 
Arglist(0] = ZASCID ‘TU BUS LINE READ DATA 7:0° ; 
OUTPUT. LINES i sa.sirieattl, argtiettod a8 
1 
; Decode and output byte 59, STI bus errors. 
LABEL_AND_HEX_OUTPUT (39) ; 


If ( TRANSLATE_BITS (drive stsC361,bit_ask_§.bytes9 gone tbl, 
. out_arglist,fao_string, ZREFTO)) J 
) 


en 
OUTPUT_LINES ( .fao_string, out_arglist(0J ; 

' 

: Decode and output byte 40, write microcontroller sts. 


LABEL_AND_HEX_OUTPUT (40) ; 


If ( TRANSLATE BITS (drive_sts(39],bit_msk_0,byte40 gese tbl, 
he out_arglist,fad_string,ZREFTO)) J 


en 
OUTPUT_LINES ( .fao_string, out _arglist(0) ) ; 
4 


Decode and output byte 41, tape unit port 0/1 select. 
LABEL_AND_HEX_OUTPUT (41) ; 


Arglist(O) = .tu_string ; 
aratisses = “(dF ive_stst40)<0,2> : 


OUTPUT_LINES ( .fao_strings(2], arglist{0)] ) ; 


If ( TRANSLATE BITS (drive_sts(40],bit_msk_3,byte41_desc_tbl, 
out_arglist,fad_string,ZREFTO)) J 


Then 
OUTPUT_LINES ( .fao_string, out_arglist(0) ) ; 


ft 
: Decode and output byte 42, tape unit port 2/3 select. 
LABEL_AND_HEX_OUTPUT (42) ; 


Arglist(0) = .t tri ° 
argtigeess = lidfive.stst41)<0,2> ; 


OUTPUT_LINES ( .fao_strings(2), arglist(0] ) ; 


If ( TRANSLATE_BITS (drive stelt1} bit ask. 10.bytese desc_tbl, 
out_arglist,fad_stfring, ZREF(O)) ) 


Then 
OUTPUT_LINES ( .fao_string, out_arglist(0) ») ; 


! Decode and output byte 43, write data. 


S> 


P 7 
A78DVDEP.B32; 1" 3 


_- eC 


VATS PEVICE DEP TA78 Device Dependent Module Sus Jenn 138? 18: g9: $8 ys au Bi ise 32 v4.0- 


13-Nov-19 aesspunse Peat wuceReiTA7BDvDEP.83204 m | 


1269 gr? LABEL_AND_HEX_OUTPUT (43) ; 
1470 7 Ar betes = wASCiD *R/W DATA, INTERMEDIATE DRD BUS ; 
tere » OUTPUT_LINES ( .fao _strings($), argl rottos ds 
47 ' 
rt 7 Decode and output byte 44/45, byte count lo/hi. 
476 5 @ LABEL_AND_HEX_OUTPUT (44,45) ; 
47 Fao string = ZASCID °!39< !>BYTE COUNT = !'ZW." ; 
a7 Argli isttod = ebyte_count ; 
OUTPUT_LINES ( .fao_string, arglist(0) ) ; 
8 ' 


; Decode and output byte 46/47, pad count lo/hi. 
LABEL_AND_4EX_OUTPUT (46,47) ; 


Fao string = = ZASCID °!39< !>PAD COUNTER = !2W." ; 
Arglist(O -pad_count ; 


OUTPUT_LINES ( .fao_string, arglist(0] ) ; 
1 
} Decode and output byte 48/49, error code counter lo/hi. 
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Se 
RERSSSELSSP OSS 


SE 


96 5 2 LABEL_AND_HEX_OUTPUT (48,49) ; 
9 906 
98 907 Fao_string = .fao_strings(3) ; 
44 oes Case corr. ~code_ cnt from -5 to 0 of 
0g \9 Hi. angry = ZASCID ‘SUCCESSFUL COMPLETION’ ; 
0 1 
04 8 Reo Te stlo = ZASCID ‘READ rat a A He $ 
05 14 ArglistL1] = ZASCID he a) R’ ; 
15 Arglist § = ZASCID ° IN 0° Con 
1g Arglist = ZASCID ° IN 1 AI CHADENBITS OF onbarie.e® 3 
1 
15 


Fao string = ZASCID "!39< !>!AS!/!39< !>!AS!/!39< !>!AS!/!39< !>IAS" ; 


Ba eco = ZASCID ° READ SKIP waters >1 IN® ; 
Arglist(1] = ZASCID ‘11 or 1 H 


feg_string = ZASCID '!39% foam I>!AaS* ; 


C-3]: Arglist(0) = ZASCID "FORMAT CODE >6° ; 
C-4). Arglist(0O] = ZASCID ‘WAC’ SELF-TEST DIAGNOSTIC ERROR" ; 
(-5]: Argliz*fO) = ZASCID ‘READ OVERRUN OR WRITE FAULT" ; 


ee ee et ce ee a ee ce ce ce ce ce a me ce ec ce ee ee ee me ee ee ee ee ed ed ee ed ae ed eed ed ed 
ed ce ee ee ee a ce ed ee ce ee ee ee ee ee ee ee ee ee ee ce ee ce ee ee ce ee ee ce eB ee ee ee ae ee ee ed ee ee we ee ee el ee ee ee ee ed 
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PUP PPP PVA PPPS SIA AA AAA AAAS ES EEE EEE 
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7 
et rvnane antes nt etme ety: Easoc}OEE 1:80:48 $2558 uac2EERF .BUGSRCITA7BOvDEP.B3261°" (9) 


: : ‘ i ¢ SeenON: Arglist(0] = ZASCID "UNKNOWN ERROR CODE’ ; 
:1 1 ‘ 

; , Vp ; OUTPUT_LINES ( .fao_string, arglist(0] ) ; 

:1 19 

; } 1 4 : Decode and output byte 50, write microcontroller errors. 

; § 1948 LABEL._AND_HEX_OUTPUT (50) ; 

: 1535 1944 3 If ( TRANSLATE_BITS (drive sts(49],bit_msk_6,dyte50 gesc tbl, 
: : 130? chen out_arglist,fad_string, ZREFTO)) J 

31 1969 OUTPUT_LINES ( .fao_string, out_arglist(0] ) ; 

: 1800 1909 3 

; } rh 1329 Decode and output byte 51, interrupt sts. 

; 58 1958 LABEL_AND_HEX_OUTPUT (51) ; 

> 1545 1954 3 If ( TRANSLATE_BITS (drive sts 50]. bit_msk_12.byte51 desc_tbl, 
3 1368 139? im out_arglist,fad_string, ZREF(O)) ) 

3 en 

; 1368 1987 OUTPUT_LINES ( .fao_string, out_arglist(0]) ) ; 

; 1330 1959 ¢ If NOT .(drive_sts(50])<2> 

3 en 

; 1326 1961 Begin 

>; 155 1366 Argiiselo) = ZASCID ‘*USART’’ TRANSMITTER RDY (TX)" ; 

3 1554 196 OUTPUT_LINES ( .fao_strings(3], arglist(0] ) ; 

:18 0 Wg Ena: 

: 188 1208 If ( TRANSLATE_BITS (drive_sts(50],bit_msk_7,byte51 3 desc_tbl, 
: 1338 614 chee out_arglist,fao_string, ZREFTOY) ) 

: 1269 190? OUTPUT_LINES ( .fao_string, out_arglist(0] ) ; 

; 1206 1971 If ( TRANSLATE_BITS (drive stsC50) bit_ask_3.bytes! 3_desc_tbl, 
: 138? 1376 ine out_arglist,fad_string,ZREFTIS) ) 

; 1565 1974 OUTPUT_LINES ( .fao_string, out_arglist(0) ) ; 

; 1396 1975 

: 1868 ier? 3 

: 1366 1308 Decode and output byte 52, TU78 sts. 

; 1334 1980 LABEL_AND_HEX_OUTPUT (52) ; 

: 1378 19 § If ( TRANSLATE_BITS (drive stsC51).bit_msk_0.bytes2 esc_tbl, 
3 1308 1? . out_arglist,fad_stfFing, ZREFTO)) J 

; en 

; He 3 5 OUTPUT_LINES ( .fao string, out_arglist(0) ») ; 

: 157; 19 ' 

3 1379 1° : Decode and output byte 535, MIS sts A. 

: 1384 1 LABEL_AND_HEX_OUTPUT (53) ; 
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If ( TRANSLATE _BITS (drive sts(52],bit_msk_0,byte53 sss sc_tbl, 
out_arglist,fao_string,ZREFTO)) J 


OUTPUT _LINES ( .fao_string, out_arglist(0] ) ; 


Pa wt 


q 
: Decode and output byte 54, MIA sts B. 


LABEL_AND_HEX_OUTPUT (54) ; 
Case i select from 3 to 7 

pes = ZASCID ‘POSITION : if (Mm 

: Arglist = ZASCID ,PO SITION i) 

i ID ‘POSITION g ( 3 

ate = ZASCID ‘POSITION (MAINT)® ; 


of 


SSLEARLANLESELERLAS 


MPOPORONONURoRUN 2 es ee 


BBSBepEseEesegesees 


ooo 


serie} t-pumper se he = on. P 
Aglisteiies = CONVERT _BcB Pl seer (.serial_number, 4) ; 
OUTPUT_LINES ( .fao_strings{12), arglist{0] ) ; 


3i9 SIRE eOUTRANGE]: ArglistC1] = ZASCID "UNKNOWN MODE SELECTION’ ; 
$3 
01 
oi$ ArglistC1] = ZASCID '125 IPS TAPE DRIVE’ ; 
015 OUTPUT_LINES (.fao apts one, orgi tescoy 
BI9 -fao_strings $) arglist f1 >; 
018 
019 If ( TRANSLATE_BITS (drive_sts(53],bit_msk_9,byte54_ desc_tbl, 
930 fine out_arglist,fao_string,ZREFCO)) J 
3 § "OUTPUT _LINES ( .fao string, out_arglist(0] ) ; 
055 3: 
9 6 Decode and output byte 55/56, serial number A/B. 
08 LABEL_AND_HEX_OUTPUT (55,56) ; 
0 . Arglist(C0O) = ZASCID ‘TAPE UNIT SERIAL @° ; 
5 


Decode and output byte 57, tape unit diagnostics. 
LABEL_AND_HEX_OUTPUT (57) ; 


Argtistto) = = ZASCID we THR seus FIELD = * ; 
ArglistC! -(drive_sts(56))< F 


OUTPUT_LINES ( Pie argiist(O) ») ; 
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7 
sReyane199s 16200: 
“ etre cap casiteilie star wae Be Pe Stas teh 


en 
OUTPUT_LINES ( .fao_string, out_arglist(0) ) ; 
a) 


Output the spare bytes (58/59) headers. 
LABEL_AND_HEX_OUTPUT (58,59) ; 


Return ; 
End ; ' Routine 
-PSECT 
54 49 GE 55 20 45 50 41 54 ASCII 
00 00 00 20 3D 20 44 45 54 
00960006" SO ORESS 
52 57 28 20 52 45 48 54 4F “ASCII 
52 28 20 53 55 54 41 54 j ASCII 
52 28 20 53 55 54 4 4 ° ASCII 
Oo fe at 8S 8 
53 53 49 4D . 4} ASCII 
g 2 64 41 «45 
49 4D 41 52 54 ASCII 
3 23 G8 a, 2% 28 
43 20 4 4 4C 42 44 ASCII 
44 61 4 8 4E 4F 49 
43 20 4 4 ° 4C 42 44 ASCII 
44 41 «4 28 4E fF 49 
20 48 54 4C 47 3 3 ASCII 
41 4 @8 E 4F 49 54 
20 48 4 4C 47 3 3 ASCII 
41 4 28 20 4E 4F : 4 
41 49 46 ¢ 4D ASCII 
45 3 3 23 45 468 54 4F ASCII 
4 45 4 ; 4F ASCII 
4 49 50 4 $3 5 ASCII 
06 90 47 & 44 F 4 
0 4 42 2 3 ; 3 3! ASCII 
49 30 43 20 35 : 32 ASCII 
4? GE 49 46 GF 
4 46 ¢9 ‘3 4 49 : ASCII 
43 49 54 49 4 41 4 ASCII 
4F 54 53 20 48 4 ? ac 64 ASCII 
47 4E 49 GE 4E 49 47 45 2 ASCII 


3 SESSDUAGS: EERE .BueeRCITA7BDVDEP.B3201°° 3) 


l, 


SPLIT,NOWRT,NOEXE, PIC,2 

\TAPE UNIT SELECTED = \<0><0><0> 
17694741 

\OTHER (WRITE) \<0><0><0> 

\STATUS (READ) \<0><0><0> 

\STATUS (READ REVRS)\<0> 
\TRANSMISSION (READ) \<0> 
\TRANSMISSION (READ REVRS)\<0><0><0> 
\DBL TRK CORRECTION (READ) \<0><0><0> 


\DBL TRK CORRECTION (READ REVRS)\<0> 


\SNGL TRK CORRECTION (READ) \<0><0> 
\SNGL TRK CORRECTION (READ REVRS)\ 
\MEDIA\<0><0><0> 

\OTHER (READ)\ 

\OTHER (READ REVRS)\<0><0> 

\800 BPI NRZI ENCODING\<0><0><0> 
\1600 BPI PE ENCODING\ 

\6250 BPI GCR ENCODING\<0><0><0> 


\WRITE FAIL P\ 
\STATISTICS SELECT\<0><0><0> 


\CLOCK STOPPED\<0><0><0> 
\BEGINNING OF PREAMBLE\<0><0><0> 
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P.AHS: 
P.AHT: 


P.AHU: 
P.AHV: 
oAHW: 


P.AHX: 


DAC P. AIM: 
1 0BE 


ASEH 


“ASEH 
-ASC 

ASCII 
ASCII 


ASCII 
ASCII 
ASCII 
ASELI 
ASCII 
ASCII 
ASCII 
ASCII 
ASCII 


ASCII 
ASCII 
ASCII 
ASCII 
ASCII 
ASCII 
-ASCII 
ASCII 


\DATA READY\<0><0> 
\PREAMBLE ERROR\<0><0> 


\STATUS_VALID\ 
\WELOCITY OK\<0> 
\FIRST TACH PULSE\ 


\ECC CONTROLLER PASSED SELF-TEST\<0> 
\ECC CONTROLLER FAILED SELF-TEST\<0> 


\READ PATH PASSED SELF-TEST\<0><0> 
\READ PATH FAILED SELF-TEST\<0><0> 
\READ CHANNEL TESTS ALL PASSED\<0><0> 


<0> 

\LAST TACH PULSE\<0> 

\"'NOT CAPABLE'’ FOUND\<0> 

\""GCR ID** FOUND\<0><0> 

\''PE ID*’ FOUND\<0><0><0> 

\BAD STATUS (WRITE TEST)\<0> 

\GOOD TAPE MARK FOUND ON TAPE STS\ 


\""ARA ID’ FOUND\<0><0> 

\TAPE MARK FOUND\<0> 
\PREAMBLE END NOT FOUND\<0><0> 
\READ PATH FAULT 1\<0><0><0> 
\READ PATH FAULT 2\<0><0><0> 
\UNEXPECTED “*I1BG"’ IN DATA\ 
\POSTAMBLE LONG\<0><0> 
\POSTAMBLE SHORT\<0> 

NORA <O><0> 

\INTERBLOCK READ\<0> 

\TEST PE ID BURST\ 


382 18:00:23 — YBSSabURS PeaF.SbeSac}tazeovoer.032, ” FB 


See See Se Se Ge Se See Ge Se Se Ge Ge Ge Ge Ge Ge Se Ge Se Ge Ge Se Ge Fe Se Se Se Ss Se Ge Be Se Ge Se Se Ge Ge Ge Se Se Se Se Se Ge Ge Se Se Se Se Se Se Se Se Se 


7 
tre neha <i: exppmemee began = EusOcHBAS 19:80:43 S2558buac2: ERF .BUGSRCITA7EDVDEP.B3251°" «73 
52 55 42 20 44 49 20 52 43 47 P.AIU: .ASCII \TEST GCR ID BURST\<0><0><0> 


4 $? 
F 
52 55 42 20 44 49 20 41 52 41 ¢ és P.AIV: .ASCII \TEST ARA ID BURST\<0><0><0> 
00 4B 52 41 4D 20 45 50 41 54 ¢ i P.AlW: .ASCII \TEST TAPE MARK\<0><0> 
00 54 53 52 55 42 20 41 52 41 20 54 53 45 P.AIX: ASCII \TEST ARA BURST\<0><0> 
20 54 4F 42 2D GE GF GE 20 4C 41 re i f P.AIY: ASCII \NORMAL NON-BOT READ\<0> 
45 54 20 46 4C 45 53 20 43 4D & i C P.AIZ: .ASCII \RUN RAC SELF-TEST\<0><0><0> 
44 49 20 4E S57 4F 4 ri 06 3? #0 P.AJA: ASCII \TEST UNKNOWN ID BURST\<0><0><0> 
45 4E ra 33 : $3 rs a $3 ? ‘ rt ; as P.AJB: ASCII \RUN READ CHANNEL MICROS TEST\ 
44 41 45 3 20 43 3 53 4F i rH rh 2 ce P.AJC: .ASCII \DIAGNOSTIC READ CMD\<0> 
45 4€ $5 $o ri 33 29 $4 rh $3 2 ¢ 4 2 bs P.AJD: .ASCII \RUN READ CHANNEL SELF-TEST\<C><0> 
52 20 4C 4C 41 2 69 41 i 53 i ? sf i P.AJE: .ASCII \RUN CLEAR ALL RMC TEST\<0><0> 
45 54 20 46 4C 45 20 43 43 4 . ce 2? Oc P.AJF: .ASCII \RUN ECC SELF-TEST\<0><0><0> 
41 47 & a 22 P.AJG: .ASCII \FIND GAP\ 
20 45 $4 23 i 49 $f rt 41 : 59 & 2 P.AJH: .ASCII \WEAK AMPLITUDE ON PARITY BIT\ 
4F 4E 20 30 3 3 4D $3 35 ie a § ‘i re P.AJI: ASCII \PARITY M8950 NOT GONE\<0><0><0> 
a4 ee 2D 4F 54 2D 23 rs 41 rs, 45 $5 4C¢ 3 P.AJJ: .ASCII \ILLEGAL 5-TO-4 FOR PARITY BIT\<0><0> 
4 49 42 20 59 54 49 S52 41 50 20 52 4F $s 
78 
7¢ 
3 
AC 
VY) 
! 
E 
F 


PINE LHS Ow SATIN NE HPP NMAE NE NMAL MALU SUI NW 


49 52 41 50 20 52 4F 46 0 8 20 é 52 4} P.AJK: ASELI SPARK 2 FOR PARITY BIT\<0><0><0> 

41 50 20 S52 4F 46 23 48 : 41 4p ; 44 i P.AJL: . ASCII \END MARK FOR PARITY BIT\<0> 

4F 46 i 45 4 42 4p 4 34 $3 4F 30 4 P.AJM: .ASCII \PE POSTAMBLE FOR PARITY BIT\<0> 

50 4 33 ‘fF 20 41 ge 41 44 20 3 33 $3 P.AJN: .ASCII \M8950 DATA OUTPUT (PARITY BIT)\<0><0> 

4f 20 44 45 4 43 45 52 52 ‘fF $f és i i P.AJO: .ASCII \ECC CORRECTED OUTPUT (PARITY BIT)\<0><0> 
4 

45 0 20 43 4 45 20 48 52 $4 20 46 7 4 P.AUP: ASEH <SNGL TRK ECC PERFORMED ON DATA\<0><0> 

4F 46 5 45 50 20 45 43 45 20 $2 54 D C P.AJQ: ASCII \2=-TRK ECC PERFORMED ON DATA\<0> 

43 20 54 4F df 44 ce 5 Y i 4 43 P.AJR: ASCII \ECC COULD NOT CORRECT DATA\<0><0> 

54 20 4F : $2 $2 i i 4F ; ; 4F P.AJS: .ASCII \NO POINTER TO TRK IN ERROR\<0><0> 

20 54 4F 4E 46 49 44 2 ‘3 ; 4 éf P.AJT: ASCII \"ACRC’ DID NOT CHECK\ 


7 
rn, saath  ppemanmn imam SHSOc198E 19:80:48 YESLUURLSCECR? HaCeZSBaroovoer.osz"¥%" cf 
20 47 GE 49 $8 55 44 20 22 45 49 Su 4p P.AJU: ASCII \"AMTIE" DURING DATA OF RECORD\<0><0> 


ae 
> oS 


oSonn 


> 


<0> 
P.AJV: .ASCII \M8951 PROGRAM PARITY ERROR\<0><0> 


5 
4 41 4C P.AKR: .ASCII \TRANSFER\ 
45 4E 44 20 54 20 2 40 P.AKS: ASCII \"WMC"’ NOT DONE\<0><0> 
45 4€ 44 20 54 20 22 4D P.AKT: ASCII \"*XMC*’ NOT DONE\<0><0> 


P.AKU: .ASCII \TU PORT 1 WRITE PATH ENABI.E\<0> 
P.AKV: .ASCII \TU PORT 0 WRITE PATH ENABLE\<0> 
AC P.AKW: .ASCII] \TU PORT 1 READ PATH ENABLE\<0><0> 
CS P.AKX: .ASCIJ \TU PORT 0 READ PATH ENABLE\<0><0> 
FY P.AKY: .ASCII \BYTE COUNT TERMINAL COUNT\<0><0><0> 


PANN 


SSS ws 


$0 20 40 41 52 47 MF 52 50 5 3 ; 
90 00 4F 3¢ 4 4 c ete / : 
43 20 54 4F 4E 20 44 49 44 43 5 4 60 P.AJW: .ASCII CRC’ DID NOT CHECK\<0> : 
59 54 49 53 41 § 2 4 ‘8 ¢ 4 E4 P.AJX: .ASCII \AMTIE PARITY\ : 
00 59 54 49 52 4 20 44 é 4 FO P.AJY: ASCH \READ PARITY\<0> ; 
09 3 is ae 28 tb ee i 2] 84 1408 PLAKAL ASELT \TACHOMETER\cooco> : 
45 53 45 § rH 49 4E 5 : 43 41 2 4 P.AKB: ASCH \TAPE UNE PRESENT\<0><0><0> : 
20 59 54 49 52 41 50 20 46 4E 4 4p iF i 4 P.AKC: .ASCII \COMMAND PARITY ERROR\ : 
4F 52 54 53 20 41 54 41 44 20 2 ie 33 ¢ 45¢ P.AKD: .ASCII \WRITE DATA STROBE\<0><0><0> : 
45 20 59 54 49 52 41 50 20 53 : 4 it 25 i 430 P.AKE: .ASCII \STATUS PARITY ERROR\<O> : 
45 53 45 52 50 20 54 GF 4E 20 ac i if 4 4 P.AKF: .ASCII \CABLE NOT PRESENT\<0><0><0> : 
45 20 45 53 4C 55 50 20 4C 4F % 3 dE i i 4 P.AKG: .ASCII \CONTROL PULSE ERROR\<0> ; 
4F 52 52 45 20 45 53 4C 55 50 ef 54 if 4 abe P.AKH: .ASCII \DATA PULSE ERROR\ F 
20 59 54 49 52 41 50 20 4F : $4 46 of is 49¢ P.AKI: .ASCII \CONTROL PARITY ERROR\ ; 
90 09 09 45 1 4 41 5 41 44 4B0 P.AKJ: .ASCII \DATA LATE\<0><0><0> : 

45 20 59 54 4 41 0 2 4p 4 $2 4 6 aC SAKK: <ASCII \"CROM” PARITY ERROR\<O> ; 
4F 43 GF 54 4F 52 50 1 20 4¢ 45 56 45 4€¢ 460 P.AKL: .ASCII \LEVEL 1 PROTOCOL ERROR\<0><0> : 
00 2 4F 56 3 45 20 4 4DF ; 
‘ 43 4 4p 2 AEB P.AKM: ASCII \XMC WCLK\ x ; 
4D 57 22 20 4F 54 20 a & 35 43 ; FO P.AKN: . ASCII \RESIDUAL TO "WMC DR" BUS\ ; 
20 43 4D 57 22 20 4 5 ; é : 4 é 22 ; 
44 20 43 4D 57 22 $8 4 4 4 : 0 P.AKP: «ASCII \"CRC" TO "WMC DR’ BUS\<0><0><0> : 
22 52 44 20 43 4D 9 4 é é 4 ; P.AKQ: .ASCII \ECC TO "WHC ©” BUS\<0> ; 
4 ; 
8 ap 3 ; 
43 58 : 
0 ; 
6 : 
| 9 : 
C E ; 
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P.AKZ: 
P.ALA: 
P.ALB: 
; P.ALC: 
C P.ALD: 
i P.ALE: 


P.ALF: 


ASCII 
ASCII 
ASCII 
ASCII 
ASCII 
ASCII 
ASCII 
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\SINGLE TAPE UNIT PORT\<0><0><0> 
\TU PORT 3 WRITE PATH ENABLE\<0> 
\TU PORT 2 WRITE PATH ENABLE\<0> 


\TU PORT 3 READ PATH ENABLE\<0><0> 
\TU PORT 2 READ PATH ENABLE\<0><0> 


\"DR" READ PARITY ERROR\<0><0> 
\"'WAC ROM'’ PARITY ERROR\<0><0> 


S> 


RMOIMMUMVIUMVIQONMONWL WM 


P.ALG: ASCII \ERROR\<0><0><0> 
PLALH: ASCII \"DR MBD'’ PARITY ERROR\<0><0><0> 


P.ALI: .ASCII \TRANSLATOR ''ROM'’ PARITY ERROR\<0><0> 
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6 AD 9 TSTB = DRIVE_STS+ ; 1556 

03 1 BNEQ $ : 
7 9 9 ISTB —DRIVE_sTS+9 ; 1557 

01 13 QOOFA 28: BEL 38 ; 

04 C ET ; 
OC DD OOOFD 3$: PUSHL «#12 > 1564 

DD OOOFF PUSHL #11 ; 

68 FB 00101 CALLS #2, LABEL_AND_HEX_OUTPUT : 
D 0D PUSHL #18 ; 1569 

68 1 FB 001 CALLS #1, LABEL AND HEX OUTPUT ; 
66 00AB_ CG MOVL STI STRING, ARGLIST : 1571 
04 Ab DA A9 9A 001 MOVZBL DRIVE_STS+12, ARGLIST+4 : 1572 
56 DD 0011 PUSHL 6 : 1574 

0084 £6 pp 0011 PUSHL  FAO_STRINGS+28 ; 

67 FB 0011 CALLS #2, “OUTPUT LINES ; 
F Dd O011C PusHL §=— #15 ; 1580 

DD 0011 PUSHL #14 Z 

68 B 001 CALLS #2, LABEL_AND_HEX_OUTPUT ; 
E DB AD = 3C 001 MOVZWL ERRNUM, -TSP) ; 1581 

FEI6 CF 01 FB 001 CALLS #1, ERROR_NUMBER_BYTE_DECODE ; 
OF FB OO1se CALLS Hh LABEL _AND HEX_OUTPUT owe 

vu 3 
66 (0084 cA 9E 001 i MOVAB P.AMU, ARGLIST ~ : 1587 

6 DD 001 PUSHL 6 31 

74 AG DD 001 PUSHL  FAO_STRINGS#+12 ; 

67 0¢ FB 001 CALLS #2, “OUTPUT_LINES ; 
DD 001 PUSHL # ; 1593 

68 1 FB 001 CALLS #1, LABEL_AND_HEX_OUTPUT ; 
E 04 0014 CLRL (SP) ; 1596 

D 0014 PUSHL SP ; 
64 AG OF 0014 PUSHAB FAQ_STRING : 1595 

ASL C6 OF OOIGA PUSHAB QUT -ARGLIST ; 

36 66 OF 0014 PUSHAB BYTEI7 DESC. TAL ; 

AG 9 0019 PUSHAB BIT MSR ; 

DE AD OF 001 PUSHAB DRIVE_STS+16 ; 
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a= 


8 
cst, Nitro git cna Reman mamas Ss 18:88:48 $235S0uAs2:EeRt .BueSRCSTA7@DvoEP.032¢1° «95 


: i Bit #6, TRANSLATE BITS 


1 ; : 
158 4 ; 
00a4 «C6 OC«OD 136 f_ARGLIST + 1598 ; 
64 Ad DD 001 PUSH Phone TAT : ; 
67 B 001 CALL a3 OUTPUT_LINES : ; 
DD 00168 4$: PUSHL #18 + 1604 : 
7) FB 001 CALLS #1, LABEL_AND_HEX_OUTPUT : ; 
66 = OOAC fA ROVAB An, ARGLIST : 1606 : 
02¢4 (440 OF A 3 5$: ches DRIVE_STS+#17, RMC_STS_CODESLI) : 3 
66 039¢ coe t 1 BOVAG BYTE18_DESC_TBLC1I, ARGLIST : 161 
EB 50 4 £3 001 g$: AOBLEQ #20, I, 5$ 31 
56 0D 00189 7$: PUSHL R : 161 
74 A6 DD 001 PUSHL FAO_STRINGS*+12 ; 
67 0¢ FB 001 CALLS a OUTPUT _LINES ; 
DD 001 PUSHL #19 t 1624 
68 01 FB 198 CALLS #1, LABEL_AND_HEX_OUTPUT : 
0 £0 a9 9 1 MOVZBL DRIVE STS?18 + 1626 
66 0444 (640 7E 0019A MOVAQ BYTE19_DESC_fBLCROJ, ARGLIST : 
56 DD 001 PUSHL R + 1628 
0090 C6 DD 001 PUSHL FAO_STRINGS*40 : 
67 6 FB 001 CALLS #2, OUTPUT_LINES ; 
O1 PB OOlAB CALS # 6 LABEL_AND_HEX OUTPUT — 
64 Ab 00D0 i 3 1A ROVAB p. AMY, FAO_STRING™ : 163 
OE —E1 a9 51 1B6 8$: BBC l, DRIVE STS+19, 9$ + 1639 
66 OOAC C642 7E 00188 MOVAQ BYTE31_DESC_TBLCIJ, ARGLIST ; 1646 
56 OD 1c} PUSHL R6 > 164 
64 Abd DD 001C PUSHL  FAO_STRING ; 
67 Fe 1G CALLS ae. OUTPUT_LINES ; 
£9 2 F3 001C9 9$ AOBLEQ #7. I, 8$ 1637 
5 DD 001CD PUSHL  4#2{ : 1652 
68 01 FB OOICF CALLS #1, LABEL_AND_HEX_OUTPUT 3 
64 Ab OOFC 3 10e ROVAB ANA, FAO_STRING 3 1656 
OE E2 ag 5 1DA 10$: BBC l, DRIVE $TS$+20, 118 : 1657 
OOAC C642 7E 001D MOVAQ BYTES1_DESC_TBLCIJ, ARGLIST + 1660 
56 DD OO1E PUSHL  R6 > 1661 
; . 03 Pe OOTEA CALLS. #OC "OUTPUT LINES 
£9 2 p Fg 1ED 118 AOBLEQ 45° I, 1087 : 1655 
: DD OOTF PUSHL #20 > 166 
68 01 FB OO1F CALLS #1, LABEL_AND_HEX_OUTPUT ; 
0128 cA 9€ OO1F MOVAB P.ANC, ARGLIST : 167 
6 OD OO1FB PUSHL : 167 
7% 0D OO1F PUSHL FAO_STRINGS*+12 ; 
67 FB CALLS #2, OUTPUT_LINES : 
DD PUSHL #2$ : 1676 
68 1 §B CALLS #1, LABEL_AND_HEX_OUTPUT ; 
64 Ab 0154 CA 3 ROVAB P. » FAO_STRING i 167 
50 E46 A 20 EF 12%: EXT ZV 1 #32 DRIVE_STS+22, RO : 1681 
£9 18 BLBC Rb, 13 ; 
66 D 1 MOVL RO; ARGLIST + 1684 
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ERF .BUGSRC 
PUSHL 
CALLS. PO "OUTPUT LINES 
ea ek i h 135° 
CALL LABEL fn Ht OUTPUT 
MOVAB p-ANG, AR 
PUSHL 
PUSHL FAO. STRINGS#12 
CALLS g OUTPUT .L 
PUSHL 
CALLS * LABEL AND _HEX_OUTPUT 
CLAL 
PUSHL 


PUSHAB PAO. sraine 
PUSHAB OUT _ARGLIST 
PUSHAB BYTESs , SC_TBL 


PUSHAB DRIVE _STS+24 
CALLS #6, TRANSLATE BITS 


PUSHL  OUT_AR ARGL IST 
PUSHL FAO STRING 

CALLS “OUTPUT _LINES 
PUSHL ’ 


/ LABEL_AND_HEX_OUTPUT 
MO ya8 iN ARGLIST ~ 


PUSHL roe -STRINGS+12 
CALLS . 3 “OUTPUT _LINES 


PUSHL 
CALLS @# LABEL fun itt _OUTPUT 
MO P hnke 


PUSHL 
PUSHL fF AO. STRINGS+12 
CALLS #2, OUTPUT_LINES 
PUSHL @# 
CALLS #1, LABEL_AND_HEX_OUTPUT 
MOVAB P.ANM, ARGLIST 
PUSHL R6 
PUSHL FAO_STRINGS+12 
CALLS #2, OUTPUT_LINES 
PUSHL 
CALLS #1, LABEL_AND_HEX_OUTPUT 
MOVAB P.ANO, ARGLIST 
PUSHL 
PUSHL FAO_STRINGS+12 
CALLS #2, OUTPUT_LINES 
PUSHL @# 
CALLS #1, LABEL_AND_HEX_OUTPUT 
CLRL «(SPD 
FAO 
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00000000v 


00000000v 


00000000v 
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EC 


0274 


&& 
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ERF .BUGSRC 


ag. TR {RAMSLATE BITS 
aa IST 
OUTPUT 
¢ ~buTPU aLINES 
iff LABEL _AND_HEX_OUTPUT 


OU 
cS 


DRIVE STS+#30, =(SP) 
Hi READ_ CHANNEL _TIE_DECODE 


Leer AND _HEX_OUTPUT 
#1, (SP) 


SP" 
DRIVE STS+31, 
READ S CHANNELS THE _DECODE 


oye be Ch AND _HEX_OUTPUT 


S 
ORIVE $1$+32, 
READ_ CHANNEL THE _DECODE 


a. LABEL _AND_HEX_ OUTPUT 


SP 
ooive STS+33, -(SP 
READ_CHANNEL ste -DECODE 


LABEL. AND_HEX_OUTPUT 
Shek FAQ_STRING 
I. pte VE_STS+34 
YT £31_DESC start). SARGLIST 
FAO_STRING 
ae. TPUT LINES 
PAs: rag STR 
ne ad, DRIVE ReTSs36, ARGLIST 
FAO. STRING 
ne “QUTPUT_LINES 
AND HEX OUTPUT 
RINGS+12 
a uiPur LINES 
ts)" ABEL_AND_HEX_OUTPUT 
PAO. STRING 
OUT“ARGi IST 
BYTES7_DESC_TBL 


Sfareovoer.e3204°" (9) 


1748 


1754 
1755 


VAS PE VICE DEP TA78 Device Dependent Module 


Bh 


67 
68 
66 
67 
68 


67 
68 


| 


"OO 


nO "OoOoMm 
@Bowoo ow 


m 


OGMNOOOOCOVTIT TO "09CO 


oi+ 


RWMMRMRROLSDOVOSC OAV VV FDWOVCOSO 


2s 


> 


2¢ 


2s 


2s 


+> 
MA OO FS BANOS OO WOO QUVOMD OS 


2s 


> 


“> 


—~> 


2s 


ators 
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a8 
1 
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£8 
A 
98 
4 
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gf 
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08 
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st oat -8ITS 


OUT" ARGLIST 
BYTE41 DESC_TBL 
BIT ae 
DRIVE S 


etd Wasi ahi 
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SLIST 3 1812 
TRING : 
“Siren LINES : 
4 ; 1818 
#1, LABEL ohne ye _OuTPuT : 
yo : 1820 
FAO. STRINGS#12 : 
is “OUTPUT _LINES : 
a3$ : 1826 
LABEL_AND_HEX_OUTPUT F 
Gh 1829 
FAO_STRING : 1828 
OUT _ARGLIST : 
BYTE39 DESC _TeL ; 
BIT_MSR : 
DRIVE STS+38 : 
#6, TRANSLATE_BITS : 
RO, 19% 3 
OUf_ARGLIST > 1831 
FAO-STRING : 
#2, OUTPUT_LINES : 
#46 : 1836 
#1, LABEL_AND_HEX_OUTPUT : 
Gh) : 1839 
FAO_STRING : 1838 
OUT“ ARGLIST : 
BYTE4O DESC_TBL : 
B1T_A c. : 
DRIVE, S +39 : 
TRANSLATE, BITS : 
ne, -ARGLIST + 1841 
FAO-STRING ; 
#2, OUTPUT_LINES 3 
a4i + 1846 
ty “STRINGS ARGC LST OS 24 
-" 82, DRIVE _S15#40, ARGLIST+4 : ieee 
FAO_STRINGS*8 ; 
#2, OUTPUT_LINES : 
(SP) + 1854 
FAO_STRING : 1853 


+40 
ae’ TRANSLATE BITS 
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00AS C6 DD 00437 PUSHL OUT_ARGLIST : 1856 
64 Ag DD PUSHL  FAO"STRING : 
67 FB CALLS Hi “OUTPUT_LINES : 
A DO 21$: — PUSHL é + 1861 
3 O2pc 4 Be res Sout stains AARC eT jared > 1863 
04 Ab Ff? Ad 83 66 EF 48 EXYiV i #2, DRIVE _STS#41, ARGLIST+4 + 1864 
6 DD PUSHL + 1866 
70 ag DD 4 PUSHL FAO. STRINGS+8 : 
67 02 FB 00457 CALLS #2, OUTPUT_LINES : 
ge D4 A CLAL ss (SP) + 1869 
: pp C PUSHL SP : 
64 Ab OF A5e PUSHAB FAO_ STRING, : 1868 
00A4 «C6 OF PUSHAB OUT~A : 
062 C6 OF re PUSHAB BYTESs” aise TBL : 
Ag oF 69 PUSHAB BIT mse 1 : 
7 AD OOF PUSHAB DRIVE 41 : 
68 98 FB i CALLS a, Saeed Ate BITS : 
OA E BBC OR ; 
00a6 «C6 C+D a478 PUSHL  OUf_ARGLIST + 1871 
64 Ag DD PUSHL FAO"STRING : 
67 02 FB CALLS #2, OUTPUT_LINES ; 
28 DD F 228: PUSHL a : 1877 
68 1 FB CALLS LABEL AND ite OUTPUT : 
66 02c0 A 9 ved Vv Shaw ARGLI 3; 1879 
6 DD 9 PUSHL R + 1880 
7% Ag DD 004 PUSHL FAO_STRINGS+12 : 
67 FB 004 CALLS #2 “OUTPUT_LINES ; 
D DD 0049 PUSHL #43 : 1885 
C OD 0495 PUSHL #44 ; 
6a 2 FB 6049 CALLS #2, L_AND_HEX_OUTPUT : 
64 Ab O2E0 CA 3 498 MOVAB P-AoA mie STRING : 1887 
66 F9 3 MOV ZUL €_ COUNT; ARGL IST : 1888 
PUSHL A + 1890 
AG PUSHL FAO_STRING ; 
67 A7 CALLS #2, OUTPUT_LINES : 
AA PUSHL #4? + 1895 
AC PUSHL 446 ; 
aa AE CALLS L_AND_HEX_OUTPUT F 
64 Ab al MOVAB Phot FAO. STRING : 1897 
66 87 MOVZUL D COUNT “RRGL ST > 1898 
BB PUSHL : 1900 
67 Cc CALLS ie SuTPUT. LINES : 
¢ PUSHL ag : 190 
68 ; CH Te BS) LABEL_AND_NEX_OUTPUT : 
64 Ab CA VL FAO_STRINGS*12. CTKO. STRING : 1907 
0 CF VZWL ERRCODE_CNT, RO > 1908 
OS FFFFFFFR  &F D3 CASEL RO, 8-5, 8 : 
0039 004C 0 bg 238 WORD -233.- : 
01 E 3 
. SF $,- 3 
4$- ; : 
66 0488 CA 9E 004E7 MOVAB P.APC, ARGLIST > 1934 
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4C 11 Q0SEC BRB 30$ : 
66 0324 cA 5 ary 248: ROVAB BsAOE. ARGLIST : 1910 
66 44 CA 9E 0045 258:  MOVAB P.A0G, ARGLIST + 1913 
06 A 60 CA DOGFA MOVAB P.AOI, ARGLIST+4 > 1914 
08 A CA MOVAB P.AOK, ARGLIST+ > 1915 
C 6 AB CA MOVAB P.AOM, ARGLIST+12 : 191 
64 Ab E cA F : ROVAB B,A00, FAO STRING 191 
4 . 
400 CA QE 00514 26$:  MOVAB P.AOQ, ARGLIST : 19 
06 Ab 418 CA 9E 00519 MOVAB P.AOS, ARGLIST+4 : 19 
64 Ab 43 cA 5 9051 MOVAB —P.AOU, FAO_STRING : 1988 
66 0450 cA H 005 ; 278: MOVAB P.AOW, ARGLIST : 192 
660478 CA 9 ° 288:  MOVAB P,AOY, ARGLIST : 1930 
5 11 0 BRB 30$ : 
66 049¢ cA 9E 005 398: MOVAB P.APA, ARGLIST > 193 
6 DD 0053A 30$:  PUSHL R6 : 193 
64 Ab DD 0053c PUSHL  FAO_STRING F 
67 3 43 005 5F CALLS #2, OUTPUT_LINES ; 
DD 00542 PUSHL > 1942 
68 1 FB d0a44 CALLS #1, LABEL_AND_HEX_OUT?UT : 
: D4 00547 CLRL = (SP) 7 1945 
E po { 249 PUSHL SP ; 
64 AG OF 00548 PUSHAB FAO_STRING : 1944 
00AS C6 9F 0054 PUSHAB OUT-ARGLIST : 
064C C6 9F 0055 PUSHAB BYTESO DESC_TBL ; 
48 AG oF 005 PUSHAB ; 
FF AS SF 005 PUSHAB DRIVE_STS+49 3 
68 2 FB 0055¢ CALLS #6, TRANSLATE_BITS : 
OA E9 0055F BLBC §=—-s«RO,_ 3:18 ; 
00A4 C6 DD 0056 PUSHL OUf_ARGLIST : 1947 
64 Ad DD OC PUSHL FAO"STRING ; 
67 FB 00 CALLS #2, OUTPUT_LINES ; 
DD 0056C 318:  PUSHL a5f ; 1952 
48 1 FB OC CALLS #1, LABEL_AND_HEX_OUTPUT ; 
E D4 OC LRL (SP) ; 1955 
E pd 0057 PUSHL SP ; 
64 AG OF 0057 SHAB FAO_STRING > 1954 
OA C6 9F 0057 PUSHAB OUT-ARGLIS ; 
66C C6 OF OC 7 PUSHAB BYTES! DESC TBL ; 
6 As F 00 PUSHAB BIT_MSR ; 
OD 00 PUSH : 
FB Of CALL a6, TRANSLATE BITS ; 
OA EF 00 BLBC §=—-_ «RO, 328 ; 
00AS C6 DD 00 PUSHL  OUT_ARGLIST ; 1957 
oC O88 PB CALS | ae "OUTPUT LI 
0D 69 8 ‘0 00595 328: BBS #5 DRIVE stses0, 338 : 1959 
Ospc CA DC MOVAB P.APE, ARGLIST i 1366 
DD PUSHL RG ; 196 
67 7 8 FB OSA CALLS #2, "OUTPUT LINES 
gE 0 DO5AG 338:  CLAL (SP ’ ; 1967 
E BD 90 PUSHL SP ; 
66 Ab OF OOSAA PUSHAB FAO_STRING > 1966 


ee CdD 
_ a 
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OAS C6 OF PUSHAB OUT_ARGLIST ; 

67¢ £8 if 8 PUSHAB BYTES! 5 DESC_TBL : 

4C Ag F 0058 PUSHAB BIT_MSR_7 : 

DD PUSH ; 

68 Fe BA CALL #6, TRANSLATE, 17S : 

A g 8 BLBC 3=—s- «RO, 348 ; 
00a4 «6666 «OOD 005¢ PUSHL OUf_ARGLIST + 1969 

64 Ad DD 0054 PUSH FAO_STRING : 

67 FB (7 CALL a. OUTPUT_LINES : 
33 n) CA 34$: MOVL #1, (SP) : 1972 

D 005d PUSHL  $P ; 
AG OF O05CF PUSHAB FAO_STRING + 1971 

OAS C6 9F 00502 PUSHAB OUT ARG, IST : 

3 C6 OF 00506 PUSHAB BYTES! 3_DESC_TBL : 

C Ab OOF DA PUSHAB BIT_MSR_3 : 

68 6 PB OOSbr Chics 96. TRANSLATE BITS : 

OA 6 £9 Ee BLBC =—_-RO $88 . : 
00AS §=C6 OOD 2 PUSHL  OUf_ARGLIST : 1976 

64 Ag DD 005€9 PUSHL FAO"STRING : 

67 FB OO5EC CALLS #2, OUTPUT_LINES : 
4 DD OOSEF 358:  PUSHL# > 1980 

68 1 FB OO5F1 CALLS #1, LABEL_AND_HEX_OUTPUT : 
ge D4 005F4 CLAL ss (SP) : 1983 

a pp 3F6 PUSHL SP ; 
64 6 OOF 3 PUSHAB FAO_STRING : 1982 

00AS C6 OF 005FB PUSHAB OUT~ARGLIST ; 

06A4 C6 OF OOSFF PUSHAB BYTES2_DESC_TBL : 

0 AO OF 9603 PUSHAB BIT F 

1 Ad OF PUSHAB DRIVE _STS+51 : 

06 F 06 CALLS a6, TRANSLATE _BITS : 

OA E C BLBC 8=«._—«&RO,.-36$ : 
00A6 C6 DD 0060F PUSHL  GUT_ARGLIST > 1985 

67 - 03 ee te CALLS bo ~ouTPuT LINES ; 
3 DD 18 36$:  PUSHL AL . : 1990 

6& 1 FB 00618 CALLS #1, LABEL_AND_HEX_OUTPUT ; 
E D4 0061 CLAL «(SPD : 1993 

—E oO 620 PUSHL $ 
64 AG OOF SHAB FAO_STRING : 1992 

00AS C6 OOF PUSHAB ARGLIST ; 

4 (6 OF SHAB BYTES3_DESC_TBL ; 

9 AO OF PUSHAB BIT MSR : 

2 Ad OF PUSHAB DRI STs+52 : 

68 06 F CALLS #6, RANSLATE_BITS ; 

OA E BLBC 3=—_«aRO.-3:7$ F 
00a4 66 DD PUSHL OUT_ARGLIST : 1995 

o * BR ee eee : 
DD 378 PUSHL ast * > 2001 

B CALLS #1, LABEL_AND_HEX_OUTPUT ; 
04 CF CASE. RS. #3. O% > 2003 

0020 0019 A 001 C 38%: WORD ‘ - $.- ; 

2 = en” : 

41$-38$,- r 

$s -38$,- 3 

45$-358$ 3 
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06 Ab 056C cA 9 39$:  MOVAB P.APO, ARGLIST+4 : 2010 
Al BRB 44$ 3 
bh 04F8 A H 408: ROVAB P APG. ARGLIST 3 2005 
6h 0514 A 418: BOVAB PAPI. ARGLIST 3 2006 
66 0530 A : 428: BOVAB PAPK. ARGLIST : 2007 
65 O54¢ CA a 43$:  MOVAB P.APM, ARGLIST : 
06 Ab CA 4 44$:  MOVAB a ARGLIST+4 + 201 
A6 OF PUSHAB ANGLIS§T+4 3 2016 
50 4 AG DO 00¢ MOVL FAO_STRINGS#+12, RO 3 
DD OC PUSHL R : 
0041 fF 68 PUSHR #*M<RO,R6> 3; 2015 
67 4 FB CALLS #4, OUTPUT_LINES ; 
E 04 CLRL 0s (SP) + 2020 
— 0D PUSHL SP : 
66 AG OOF PUSHAB FAO_STRING : 2019 
0 AS «C6 ODF PUSHAB OUT -ARGLIST : 
4 C6 OF PUSHAB BYTES4 DESC_TBL : 
4 AO OF PUSHAB BIT _MSR : 
03 «AD OOF PUSHAB DRIVE STS+53 : 
68 96 F CALLS #6, TRANSLATE_BITS : 
OA € BLBC—OséiR : 
00AS4 «C6 OOD PUSHL  OUT_ARGLIST 3 2022 
4 A6 DD PUSHL FAO-STRING : 
67 FB CALLS ae OUTPUT_LINES : 
DD 45$: PUSHL @# 3 2028 
’ DD PUSHL a : 
a8 02 FB CALLS #2, LABEL_AND_HEX_OUTPUT : 
£6 OSA6 «CCA 3 MOVAB P.APS, ARGLIST 3 20 
92e0 C6 4 MOVB 4, SERIAL_NUMBER : 9 g 
02E1 C6 3 90 MOVB R3, SERIAL_NUMBER+1 : CRE 
4 00 PUSHL #4 3 20 Ex! 
7E 02€0 C MOVZWL SERIAL_NUMBER, -(SP) 3 MAI 
00000000v 00 F CALLS #2, CORVERT_BCD_NUMBER ; EN! 
04 A6 D MOVL RO, ARGLIST?4 3 RAI 
6 0D PUS R 3 2036 GE| 
0098 dD PUSHL FAO_STRINGS+48 : ma 
67 FB CALLS #2, OUTPUT_LINES 3 DIS 
DD PUSHL : 2041 GE! 
68 1 FB CALLS #1, LABEL_AND_HEX_OUTPUT 3 NX! 
66 05c4 CA O9FE MOVAB P.APU, ARGLIST 3 2043 RO} 
04 Ab 06 Ad 02 EF EXTZV #0, #2, DRIVE_STS*56, ARGLIST+4 ; Ook ou 
70 ag DD PUSHL FAO_STRINGS+8 3 IN! 
67 0 FB CALLS #2, OUTPUT_LINES 3 CRE 
gt D CLRL 0 (SP) 3 2069 D1) 
i) PUSHL SP 3 cH 
64 f PUSHAB FAO_STRI 3 2048 Fil 
OAs C6 OF PUSHAB OUTARGLIST ; ROI 
¢ C6 OF PUSHAB BYTES? DESC_TBL : CH 
Ag f PUSHAB BIT MSR : LO 
AD OF PUSHAB DRIVE S7S+56 : Ex! 
68 FB CALLS #6, TRANSLATE_BITS : 
A & RiBE RO. 46$ : 
00a6 (6 DD PUSHL  OUf_ARGLIST : 2051 
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64 ag DD 0071C PUSHL FAO_ST RING ; 

67 FB OO7IF CALLS 2 OUTPUT_LINES 3 
B 0D 00722 468:  PUSHL #59 3 2056 

A 0D 00724 PUSHL #58 3 

68 02 FB 00726 CALLS #2, LABEL _AND_HEX_OUTPUT : 
04 007 RET : 2059 


; Routine Size: 1834 bytes, Routine Base: SCODE + 0589 
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Fl 
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cP 
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RE 
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SESE 


—OOe 
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POAAACAAAO 
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DUAG2: ERE .BUGSRCITA7BDVDEP.B32-1°" BS 


Begin READ_CHANNEL _TIE_DECODE (channel_tie_byte,flag) : NOVALUE = 
a 


Functional Description: 


This routine Secodes and outputs the read channel tie byte. It is 


called from the TA 
Calling Sequence: 


drive_sts_decode routine. 


READ_CHANNEL TIE _DECODE (channel_tie_byte, flag) ; 


Channel_tie_byte = contents of the read channel tie byte. 


i] 

i 

i 

i 

i 

i 

i 

: 

i 

i 

Input Parameters: 
i 

: Flag = address of bus selection indicator. 
Output Parameters: 

None. 

io 


Own 
Unknown_desc: Initial (ZASCID '?") ; 
Fao_string = ZASCID °!39< !>CHANNEL !AS TIE BUS !AS" ; 
Incr 1 {res 0 to 7 do 
n 
If-.channel_tie_byte<.1> 
Then 


Begin 
If.1 LEQ 3 
Then 
Begin 
Arglist(1] = byte3i_desc_tbiC.1.0,0,0,0) ; 
Case ..flag from 0 to 3 of 


e 
QJ: Arglist = byte31_desc_tbt 
1): Arglist = byte3i_desc_tbl 
§ : Arglist = byte51_desc_tbl 
: Arglist = byte5i_desc_tbi(6, 


Tes 
End 
Else 


COUTRANGE): Arglist(0] = .unknown_desc ; 


Begin 
ArglistC1) = byte31_desc_tbiC(.1-4),0,0,0,0) ; 


Case ..flag from 0 to 3 of 


6 : Arglist = byte31_desc_tbl[1.0.0. 
: Arglist = byte3i_desc_tbi(3,0,0, 
2): Arglist = byte5i_desc_tbil5,0,0, 


sree Drea eee eonmanmagene oan AecHQEE 190049 YOSSI SSH BUsSRCI A7BovDEP.B32:1°" «Bs 


C3]: Arglist(O] = byte3i_desc_tbi[7,0,0,0,0) ; 
FOUTRANGE): Arglist(0] = .unknown_desc ; 


End ; 
End ; 

End ; 
if. -channel tie byte NEQ 0 

*ouTPUT LINES ( .fao string, arglist{0) ) ; 


Return ; 
End ; ! Routine 


SNS SSNS 
PORIPOR) 2 te 


SeSeee Ge Ge Ge Ge Se Se Geese Geese 
dd td td 
WN =O ODONOULS WO 
ir rir ir Er ir ir ir ir ir ir ar 
— 
—"OOONOUSWH—O0O 
PINS 


«PSECT SPLIT,NOWRT,NOEXE, PIC,2 


00 00 F Q1E08 P.APX: .ASCII Veh <Op¢ ><0> : 
01960001 1E0¢ P.APW: “LONG. «17 1 7694 472 ; 
20 4C 45 4E 4 41 48 43 3 21 20 36 39 § 1E14 P.APZ: ‘ASCII NE !>CHANNEL !AS TIE BUS !AS\<0><0> : 
41 21 20 53 55 42 20 45 49 54 41 31 i 
1 1E34 P.APY: .LONG 17694750 ; 
83058808" 1E “ADDRESS P.APZ : 
-PSECT SOWNS,NOEXE, PIC,2 
00000000" 00764 UNKNOWN_DESC: 
ADDRESS P.APW : 
-PSECT S$CODE,NOWRT, PIC,2 
0004 00000 READ_CHANNEL_TIE gDECODE: 
52 00000000" E Bi Aeee 
64 3 iedtttey ze ; ROVAB P. APY, babe STRING : z 
6C 04 ac E1 13 18: BBC 1, CHANNEL_TIE_BYTE, 14$ + 2091 
, it 1B BeTR . 
04 =A 00a C240 7€ 0001D MOVAQ BYTE31_DESC yeuci3, ARGLIST+4 : 3097 
03 0 mm CF 34 CASEL LAG, z F 
001F 0018 001 A 23: . WORD 53 7 ; 
5$-0$.- : 
30 11 00031 ers oS . 2 24 
62 OOAC f3 % 3$ ROVAB BYTE31_DESC_TBL, ARGLIST : 310% 
62 Oopc ¢ 5 4$ MOVAB BYTE31_DESC_TBL*16, ARGLIST > 2102 
4 BRB 4$ ; 
62 Oocc C2 9 1 5$ MOVAB BYTE31_DESC_TBL+32, ARGLIST > 2103 


TA78_DEVICE_DEP TA78 Device Dependent Module 
vou-000 es 


SasecH9RE 1$:00:48  YMSL ALSSHCE? V405742 aavoep.gsaht@® 8 


3c 11 ug BR 14$ : 
é 48 68: ROVAB YIES1_ DESC_TBL*48, ARGLIST ; ise 
; 04 008¢ C2 0 fe F 7$: movaa SrA _D DESC, [eL-S2C1). ARGLIST+4 : if 
0024 oo%s 0016 o0oF 6 8S: WORD f it: ; 
195-83 ; 
62 0764 £2 00 9$: MOVL NOWN_DESC, ARGLIST : 
A BRB 4 : 
62 0084 i H A 108: BOVAB BYTE31_DESC_TBL+8, ARGLIST ; 
62 00c4 9 t 118: BOVAB BY TE31_DESC_TBL +24, ARGLIST 3 
62 00D4 cs H 78 12 MOVAB BYTES! DESC_TBL+40, ARGLIST ; 
62 00E4 C2 9 7F 13$:  MOVAB eyTest DESC _TBL+56, ARGLIST ; 
88 5 14$: AOBLEQ #7 : 
06 AC p TSTL Cun TIE_BYTE ; 
Q BEQL : 
DD PUSHL : 
64 A2 OD 0008F PUSHL O_STRING 3 
000000006 00 0 FB 0092 - CALLS Wee OUTPUT _LINES 3 


; Routine Size: 154 bytes, Routine Base: 


; 1724 2132 1 


SCODE + OCES 


VATS PEVICE DEP TA78 Device Dependent Module 


Oo 


Rout ine LABEL_AND_HEX_OUTPUT : NOVALUE = 
Begin 


wn 


; Functional Description: 


This routine outputs the data in hex and an associated Label. 
Calling Sequence: 
LABEL _AND_HEX_OUTPUT (byte_number,byte_number,...) ; 


Input Parameters: 


Byte_number = actual byte number. 
This routine will calculate the number of parameters that were 


House}905 16:00:48 YAUCI oLiege 82 


Sfa7eovoer.e3204%" (> 


PE EEE EEE EE 


WONAVESWN OO OONOULWIN—OO0 


PPADS BBP PPLE EE 


> PPP ee 
NNN NNO AAA OOOAAO 


RVI 


SANS 
FERS 


LES 


ee ee ed ed ed dd od ad = td td tt “go td a ss 9 
~ pe] 


ee ee ce ce ae ee ee ce me em me a me me ee ee ee ee ee a ed ed ed ed ed ed ed od dd 


passed to it. 
Output Parameters: 
None. 


nd 
Hex_data = emb(82,0,0,0] : VECTOR C,byte] ; 


Builtin 
Actualcount, 
Actualparameter ; 


Local 
Byte number, 
Digit_size ; 


Literal 
Str_size = 5; 


Digit_size = 0; 

inert free 1 to ACTUALCOUNT() do 
egin 
Byte punber = ACTUALPARAMETER (.1) ; 
7 sbyte_munber GEQ 10 

Digit_size = 1; 

Arglist 9 = CSTRING ("BYTE *) ; 
Arglist = .byte_number ; 
Arglist § = (16 = (str_size +.digit_ 
Arglist = ,hex_datalT. byte_number= 
If NOT (.main_hdr) 
Th 


en 
Fao_string = .fao_strings(13] 


VATS DEVICE DEP TA78 Device Dependent Module iSegannt98s 18: $0: #8 Yael Bi iseese One se a7epvoer. e321" eae 80 


15-Nov-1 DUAS 
i Else 
Begin 
4 Fao. string = .fac_strings(9) ; 
pen, hdr = fa ise ; 
na ; 


QUTPUT LINES ( .fao_string, arglistCO] ) ; 


SeSe Sees Sete Geese Setee 
et nt we wb a td 


Return ; 
00 End ; ' Routine 


-PSECT SPLIT,NOWRT,NOEXE, PIC,2 
20 45 54 59 42 O05 O1E3SC P.AQA: .ASCII <S>\BYTE \ ; 


«PSECT SCODE,NOWRT, PIC,2 
007C 00000 LABEL_AND 1-1 at ly 


.QORD” Save R2,R3,R4,R5,R6 : 2133 
56 00000000' 90 MOVAB FAO rene Rb : 
4 CLRL OIG ett : 2172 
55 : MOVZBL (AP + 2174 
CLRL ; 
53 ocd Rovt _CAP)C19, BYTE_NUMBER : 217 
OA 5 cHPL YTE_NUMBER, nd , ; $158 
54 1 MOVL #1, DIGIT SIZE : 21 
9¢ A6 00000000° MOVAB P.AQA, AR ul he 3 21 : 
AO Ab MOVL BYTE NUMBER LIST ing © : 21 AL 
AG OF 54 SUBL3 DIGIT S126, 8 “ais, ARGLI : 21 
Ag AG ice MOV ZBL HE x DATA i fay E“NUMBERJ, TOARGLIST#12 3 18? . 
66 Ag ROVL FAO_ STRINGS*52, FAO_STRING : 189 % 
66 8 Ab MOVL FAO STRINGS+36, FAO_STRING : 192 AR 
i A CLRB ss MALIA : 219 
C Ab PUSHAB ARGLTST : 2196 
000000006 3 CALLS. #O "OUSPUT _LINES : AL 
B9 99 AOBLEQ +e at : 317% BF 
RET s 22 +o 
; Routine Size: 90 bytes, Routine Base: S$CODE + 0D7D HF 
81 
3 179% 01 1 BL 
3; 1795 g 02 1 o 


—_-—— + - eee 


9 


7 -Jan- :00: - - .0- 
oo pera pelea: pct paeemapns Damten: ReusectOBs 16:00:48 $255$DuAc2 EERE .BUGSRCITA7SDVDEP..832;1% (10) 


Ww 


Routine DIAGNOSTIC_STS_BYTE_DECODE (which_byte,sts_codes_tbl,number_of codes 
stS_codes_desc_tbl)~: ROVALUE = 


1 
: Begi 
iegin 
! Functional Description: 
i This routine decodes and outputs the diagnostic status byte. It is 


—~ 
SeSS333 


oe 


called from the TA 
Calling Sequence: 


DIAGNOSTIC_STS_BYTE_DECODE (which byte,sts_codes_tbl,number_of_codes, 
s€s_codes_desc_tBl) ; 


drive _sts_decode routine. 


S3ee3 


(2.00 09 C9 CD COCO 
ed ed ed aed ed ed 
NOUS WN SO 


Input Parameters: 


Which_byte = diagnostic status code byte indicator. 

Sts_codes_todl = address of diagnostic status codes table. 

Number_of_codes = number of sts codes in sts_codes_tbl. 

Sts_codes_desc_tbl = address of table of descriptors containing text 
for the diagnostic sts codes. 


te a ts Ls 4 2 


900: 
MN —— 
-—O0O@ 


Output Parameters: 
None. 


Bind 
Drive_sts = emb(82,0,8,0] : VECTOR C byted. 
Diag_sts_codes = .sts_codes_tbl : vECTOR porte? 
Diag_sts_desc_tbl = .Sts_codes_desc_tbl: BLOCKVECTOR C,long] ; 
ArglistC0] = ZASCID ‘UNKNOWN DIAGNOSTIC STS CODE’ ; 
Incr_I from 0 to .number_of_codes do 
egin 
If” .drive_stsC-which_bytes7) EQL .diag_sts_codes(.1) 


en 
Argl istC03 = diag_sts_desc_tbiC.1,0,0,0,0) ; 
Ex tl 


PPL PCl PPP 2222222222222 2229229999 iv 


90909090000 0000 
vn MRToPoTNoroTr 
SSSONORROIN 


FUN 


et ee te 
wu 


SOGS 


f .drive_st QL 0 AND 
it Tarive.sts€9) EOL. 0 


en 
ArglistC0] = ZASCID ‘NO SOFT ERROR’ ; 
OUTPUT_LINES ( .fao_strings(3], arglist(0] ) ; 


Return ; 
End ; ' Routine 


BD eed ed Bd nd 8 AD et a a 8 ot oh ed dd a ts i 


223328235 


«PSECT SPLIT.NOWRT,NOEXE, PIC,2 


k 9 
TA78 DEVICE _DEP TA78 Device Dependent Module -Jan=1985 16:00:4 AX-11 Bliss-32 V4.0-742 P 
yose508 ¢ 1ecnoveloee 19s0g:23 — YaSseouRtSSbeR? Mbeeaesfazepvoer ws26}% e185 
164 -BLKB 2 

53 GF GE 47 41 49 46 6E 57 4F 4E 468 GE 55 01644 P.AQCc: <A \ AGNOSTIC ST \<0> ; 

00 45 46 4F 4% $8 5 2 53 2 a3 i 22 iF ' eg ; 

AOBCGOR’ Siege AUT -LONE, Zeek 747 : 

00 00 52 4F 52 52 45 20 54 46 4F 53 20 4F IE P.AQE: ASCII \NO SOFT ERROR\<0><0><0> : 

10E0000 O1E78 P.AQD: .LONG 17694733 : 

itt 1E7¢ “ADDRESS P.AQE : 


51 


1 


3; Routine Size: 89 bytes, 


3 1849 2255 1 


ePSECT SCODE,NOWRT, PIC,2 
000C 00000 DIAGNOSTIC STS BYTE DECODE: 
WORD ~ Save R2,R 


. : 2203 
53 000000006 00 9€ 0000 MOVAB DRIVE _SfS, R3 : 
5 09900000" 6 9E 00 3 MOVAB ARGLIST, R2 ; 
6 000000" 9E 0 1 MOVAB P.AQB, ARGLIST : 2236 
1 CF 1 MNEGL #i, I : 
1A 1A AeA 2s § 
51 63 9 1C 1$: ROVAR DRIVE_STS, R1 + 2240 
51 04 Ac : 1F ADDL2 WHICH~BYTE, R1 ; 
08 B8C40 7 al 91 $588 cHPB 7(R1)> aSTS_CODES_TBLCIJ : 
50 04 % 5 ASHL #4, I, R1 > 2242 
62 10 cal H F MOVAB sfs_Copes_vesc_re.cetd, ARGLIST pe 
50 0c aC £3 gs: AOBLEQ NUMBER_OF CODES, 1, 1$ : 
08 A ? $: 1ST DRIVE_STS? 3 2266 
09 As $ 904 TStB —DRIVE_sTS+9 : 22467 
62 00000000' 9 9 9045 a ROVAB P.AQD, ARGLIST : 
7% A2 OD bode ; PUSHL  FAO_STRINGS*12 : 
000000006 00 02 FB 00051 CALLS #2, OUTPUT_LINES : 
04 00058 RET : 


Routine Base: S$CODE + 0DD7 
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Ge00.000000 0000 Gp oe 


SESEE. 
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(C@ C8 CD CD CD Cd CD CD CD CD 
3 


SSESeSrEres 
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ee 
' 
} Functional Description: 


This routine will convert a BCD encoded number. It will return 
the number in binary. 


4 
] 
: 
Calling Sequence: 

Convert_bcd_number (bcd_number, number_of_digits) ; 

; Input Parameters: 

i Bcd _ number = BCD number to be converted. 

’ NumBer_of_digits = value, indicating the number of BCD digits to 
convert. 

; Output Parameters: 

+ 
i] 
' 


Binary value representing BCD encoded number. 


Local 
Binary value: Initial (0), 
Breck: Initial (0), 
Result: Initial (0) ; 


peat 3 ioe 0 to (.number_of_digits - 1) do 
n 


eg 
Digit = .bcd_number<.offset, 24> : 
Result = OTSSPOWJ (i set 3 
Binary_value = “binary. velue + (.digit * .result) ; 
ottset™ = .offset +4; 
no ; 


owt -binary_value ; 
' Routine 


003C 00000 CONVERT_BCD_NUMBER: 
* WORD save f R2,.R3,R4,R5 


28 7¢ 2 CLRQ 

0 D4 CLRL ReSULI 

53 01 cf MNEGL . 
18 BRB 2$ 

AC 04 4 EF 18: EXTZV OFFSET, #4, SCD_NUMBER, DIGIT 
3 00 1 PUSHL 
A 0D 13 PUSHL #10 


AGIcIREE IRR: WSU SUIEH? she267S2aravoerosot™ af 
ha CONVERT _BCD_NUMBER (bcd_number ,number_of_digits) = 


Ad fee HS Tt fs Pet os 


nmr 
23 
— 


TA78_DEVICE_DEP TA78 Device Dependent Module -Jan-1985 16:00:4 Bliss-32 v4.0 
v04 - P iieyanet9 18idgies — YOSsaauRLS SBR? MG eoaesFazepvoer.es208 ifs 
000000006 3 F 15 CALLS #2, OTS$POWJJ ; 
1 C 1 MULL a T, DIGIT, R1 + 2292 
1 ¢ ADDL , WARY VALUE ; 
rs 4 ¢ ADDL FSET + 2293 
EO 3 08 Ag ; 6 28: AOBLSS NUMBER R_OF DIGITS, I, 1$ : 88 
5 ) MOVL BINARY_VACU ; 
4 E RET : 2298 


; Routine Size: 47 bytes, Routine Base: S$CODE + 0E30 


d ! Module 
U 


PSECT SUMMARY 


: Name Bytes Attributes 

: SOWNS 1896 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON, PIC,ALIGN(2) 
> SPLIT 7808 NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, REL, CON, PIC,ALIGN(2) 
; SCODE 3679 NOVEC, *NOWRT, RD , EXE,NOSHR, LCL, REL, CON, PIC, ALIGN(2) 


Library Statistics 


: woceeeces 5 yabo Lg ooeeeeee Pages Processing 
3 File Total ioaded Percent Mapped Time 

: _$255$DUA18:(SYSLIBILI8.L32;1 18619 21 0 1000 60:01.5 
H COMMAND QUALIFIERS 

3 BLISS/CHECK=(FIELD, INITIAL .OPTIMIZE)/LIS=LIS$: TA78DVDEP/OBJ=0BJS: TA78DVDEP MSRC$: TA78DVDEP/UPDATE =(BIIGS: TA78DVDEP) 
3; Size: 3679 0:7" + 9704 data bytes 

: Run Time: . 

3; Elapsed Time: 3.9 

3 Lines/CPU Min: 401 

3; Lexemes/CPU-Min: 32415 

3 Memor ry vs Used: 2 pages 

; Compilation Complete 
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